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EDITORIAL 





Bonne année ! 


Voici votre dernier JPC jaune. Le prochain numéro, celui de 
février 1987 inaugurera une nouvelle couleur. 


Cette nouvelle couleur, cette nouvelle année marqueront le 
début d’une nouvelle période pour PPC-Paris. De nombreux 
rêves sont en train de devenir réalité, à force de ténacité et 
d'efforts. 


Le précédent éditorial vous avait annoncé l'aboutissement 
proche de l’un d’entre eux : la disponibilité de tous les 
programmes parus pour le HP-71 depuis sa sortie. C’est, à ce 
jour, Ja plus grande bibliothèque de logiciels consacrée 
uniquement au HP-71. 


La liste des programmes (que certains d’entre vous ont déjà 
pu consulter à la dernière réunion) pourra être commandée 
dès le début de la nouvelle année. Quant aux programmes 
eux-mêmes, nous les distribuerons soit en intégralité (deux 
disquettes ou équivalent), soit séparément sur demande. 


Le deuxième projet est, lui aussi, en train de se concrétiser 
la masse des Lex (nouvelles fonctions en Basic) a été fondue 
en un seul fichier, donnant ainsi un certain nombre 
d'avantages comme par exemple une plus grande rapidité. Ce 
Lex est maintenant en train de se doter d’un manuel. 
Beaucoup d’entre-vous ont apprécié cette initiative lors de la 
dernière réunion, et nous confortent ainsi dans nos efforts. 
Affaire à suivre ! 


Vivement 1987 ! 











Pierre David 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous Le savez peut être déjà, PPC Paris 
se réunit une fois par mois, en plein coeur de 
Paris. Amenez votre matériel, votre bonne 
volonté et vos idées ! Plus vous en apporterez, 
et plus vous en trouverez chez vos collègues de 
PPC. 


Ces réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n'étant imposé. Un membre du bureau est toujours 
présent. Ainsi, si vous désirez remettre votre 
article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en 


principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un 
seul instant, venez nous rejoindre tous les 
premiers samedis de chaque mois (sauf en péride 
de vacances scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez 
des éclats de rire et des 
passionnées vers La salle 215. 
toutefois, de venir entre 16 et 19h. 


discussions 
Attention, 


Pour l'accès en métro, trois possibilités 


“ 


s'offrent à vous : 


- Métro Strasbourg Saint Denis : 
Sortie porte St Martin / Bd St Denis, coté pairs 


- Métro Républ ique : 
Sortie Bd St Martin, coté pairs 


- Métro Jacques Bonsergent : 


Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en 
avant première lors de ces réunions... A bon 
entendeur, salut ! 


Les dates des prochaines réunions sont : 


Samedi 17 janvier 1987 
Samedi 7 février 1987 
Samedi 7 mars 1987 
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Samedi 4 avril 1987 
Samedi 16 mai 1987 
Samedi 6 juin 1987 


Pierre DAVID 
(P37, SIG1, CHHU616) 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez 
pas sous quelle forme “l'équipe de rédaction! 
souhaite recevoir votre prose. C'est ici que se 


“ 


trouvent les réponses à vos questions. 


Dans La mesure du possible, vous devez nous 
envoyer vos écrits sur support magnétique 
cassette ou disquette). Soyez sans 
crainte, nous vous retournerons vos biens après 
copie. 


(carte, 


Si vous ne pouvez pas utiliser de 
magnétique, rendre aux 
réunions, alors et alors seulement faites Le sur 
papier. 


support 
ou ne pouvez vous 


Que ce soit sur une feuille de papier, ou sur 
support magnétique, ne  dépassez pas 50 
caractères par ligne. 


Pour nous épargner du travail, insérez dans 
votre texte Les commandes de formattage 
suivantes (et non Les commandes du formatteur 
HP) : 


"# centre un titre, par exemple : 
“TITRE 


MAI (CHR$(92)) marque le début et La fin d'un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant Le contenu de 
vos idées qui, même si vous en doutez, 
intéressera certains des membres du Club. 
Surtout si vous vous sentez débutant. Les 
articles pour débutants écrits par des débutants 
sont ceux qui manquent le plus. Fin de 
paragraphe.\ 





N'oubliez pas de mettre les accents. Utilisez 
le jeu de caractères Roman8. Les possesseurs de 
HP71 utiliseront les redéfinitions de touches 
ci-dessous, ainsi que Le fichier CHARLEX listé 
dans le coin des Lhex en fin de journal. 


Jean-Jacques Dhénin 


DEF KEY ‘fW', CHR$(197); (é) 
DEF KEY ‘fE', CHR$(193); (é) 
DEF KEY 'fR', CHR$(201); (è) 
DEF KEY 'fY', CHR$(203); (ù) 
DEF KEY ‘fU', CHR$(195); (à) 
DEF KEY ‘fl', CHR$(209); (1) 
DEF KEY 'f0', CHR$(194): (ô) 
DEF KEY ‘f/', CHR$(92): (\) 
DEF KEY ‘fA', CHR$(192): (à) 
DEF KEY ‘fS', CHR$(200); (à) 
DEF KEY ‘fD', CHR$(205); (8) 
DEF KEY ‘fJ', CHR$(207): (ü) 
DEF KEY ‘fK', CHR$(221): (1) 
DEF KEY ‘f*1, CHR$(124);: () 
DEF KEY 'fC', CHR$(181); (ç) 


François Lefebvre 
33 Avenue Vanier 
10000 Troyes 


Monsieur, 


Dans votre numéro de Décembre 85 / Janvier 86, 
vous  analysez Les 
interfaces vidéo. Votre conclusion est une 
interface américaine et une table traçante HP. 


avantages comparés des 


N'y-a-t'il pas erreur sachant que l'interface 
allemande permet la programmation en HPGL, pas 
l'autre ? 


Avec l'interface américaine, indispensable pour 
Le texte (sic), a-t'on besoïn du module EDTEXT ? 
Enfin, peut-on espérer Un moniteur vidéo 
portable pour cette année ? 


Vous remerciant par avance de vos réponses 
éclairées qui m'éviteront des investissements 
regrettables, 


recevez Monsieur, mes sincères 


salutations. 


François Lefebvre 





Le JPC No 30 de décembre 85 / Janvier 86 
contenait un article présentant un point de vue 
sur Les deux interfaces vidéo 


actuellement sur le marché. 


disponibles 


Cet article se terminait, de manière totalement 
subjective, en concluant que le meilleur choix 
était une interface vidéo américaine (Mountain 
Computer) et une table traçante HP. C'est bien 
sûr un point de vue idéaliste : je suis bien 
conscient que peu de membres du Club peuvent 
s'offrir Le luxe d'une table traçante HP. 


IL n'y a pas d'erreur, l'interface vidéo 
allemande permet La programmation en HPGL. Mais 
il faut savoir ce que l'on veut en faire. Tout 
dépend des besoins : 


Si vous envisagez de faire du texte une fois 


par mois pour écrire votre demande 
d'augmentation, alors il ne sera pas 
indispensable d'investir dans une interface 
américaine. 


A l'autre extrème, si vous fabriquez un journal 
comme JPC, par exemple, une interface allemande 
n'est absolument pas envisageable : l'absence 
d'accents est rédhibitoire. Ce défaut est, pour 
des allemands, plutôt curieux... 


Si vous êtes professeur de mathématiques, par 
exemple, une interface vidéo graphique allemande 
fera un excellent choix. Vous pourrez simuler un 
grand nombre de fonctions pour préparer vos 
devoirs sans gâcher une quantité énorme de papier. 


A l'autre extrème, si vous travaillez dans un 
bureau d'études, je vous conseille très 
fortement les tables traçantes HP. Elles sont 
très précises, leur qualité est irréprochable et 
leur vitesse est comparable à celle de 


l'interface vidéo allemande. 


Et Là, c'est à vous de décider. Je ne puis, 
malgré mon éclairage, vous conseiller. C'est en 
fonction de vos besoins que vous ferez votre 
choix. 


totalement 
subjective. Néanmoins, je persiste et signe. Jde 
suis persuadé qu'acheter du matériel de qualité 
est toujours profitable à La longue. Et à cet 
tables 
bel Les 


Vous voyez que ma réponse était 


égard, l'interface américaine et les 
traçcantes HP se sont  taillées de 


réputations ! 
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ee MU A de de ne 


D'autre part, il faut bien 
l'interface 


comprendre que 
vidéo n'est rien de plus qu'un 
organe de visualisation. Elle ne permet pas de 
rentrer du texte dans un HP-71. Pour cela, il 
faut Le module EDTEXT, Le module Forth  / 
Assembleur, ou tout programme permettant de 
rentrer du texte tel que celui paru dans JPC No 
29 (novembre 1985) de nos amis de PPC Danemark. 


En ce qui concerne un moniteur vidéo portable, 
il n'y a rien de tel sur Le marché actuellement, 
et je n'ai pas d'écho sur une réalisation en 
cours, C'est dommage. 


Enfin, je vois se profiler au delà de La Ligne 
bleue une nouvelle interface vidéo, programmable 
également en  HPGL. Dès que j'aurai des 
informations à ce sujet, je les mettrai dans le 
Journal. 


Faites Le bon choix, 


Pierre David 


Alain GOUBAULT de BRUGIERE 
27, Avenue de Brimont 
78400 CHATOU 


Cher ami, 


J'ai bien reçu ton courrier et je t'en 
remercie. Tu ne me dis pas si tu as l'intention 
de publier mon article dans un prochain numéro, 
mais je t'en envoie déjà un autre qui traite 
d'ailleurs du même sujet : une pile complexe. 
Simplement, Le soft que je t'envoie est 
complètement écrit en FORTH et, sans renier ce 
que je disais dans l'article précédent, je crois 
sincèrement qu'il est beaucoup plus puissant et 
plus maléable aussi. Par manque de place et de 
moyens, je n'ai pas pu commenter le source FORTH ; 
j'espère que cela n'est pas rédhibitoire pour 
une publication. En tous cas, je suis prêt à 
assumer une maintenance et à fournir toutes Les 
explications à qui m'en fera la demande. 


J'ai scrupuleusement suivi tes indications et 
celles de JPC ("Ah, vous écrivez" qui soit dit 
en passant, ne recommande pas de passer une 
ligne entre chaque paragraphe). 
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Je te remercie pour Le catalogue EduCALC. Vus 
les prix très intéressants, j'ai envie de 
commander quelques 


articles, mais peux-tu 


m'éclairer sur deux points importants : 
- Quel est Le délai moyen de Livraison ? 


- Que se passe-t-il à La douane 7? Quel est Le 
montant maximum que je risque de payer (en #) si 
les douaniers me font des chinoiseries et quelle 
attitude dois-je adopter dans ce cas-là ? 


A. Goubault de Brugière 


Réponse du cher ami, 


Généralement, si un programme “tourne! 
correctement et est bien présenté, nous le 
publions dans Le journal. Merci d'avoir respecté 


les indications données pour faire un article. 


Pour nos adhérents qui désirent le catalogue 
EduCALC (très intéressant, mais aux USA), vous 


s 


pouvez le réclamer à : 


EduCALC MAIL STORE 
27953 CABOT ROAD 
LAGUNA NIGUEL, CA 92677 U.S.A. 


Tél.: 19 1 (714) 582 2637 


(attention au décalage horaire : - 9h) 


Vous y trouverez tout ce qui existe en 
compatible HP et non HP pour vos machines (41, 
71, 75, IL), ainsi que Les calculatrices de la 
série 10. D'autre part, Un grand nombre de 
livres d'informatique et de livres à caractère 
général ont été sélectionnés. Le tout à des prix 
défiant toute concurrence. 


Par exemple: 


Interface HPIL/RS-232C $249,95 
Lecteur de cartes HP71 $139,95 
HP71 32k RAM/32k EPROM (lecteur) $495 

Module 32k RAM frontal pour HP71 $149,95 
Calculateur HP41CX $179,95 
Imprimante HP82143 $309,95 


etc... 





Les délais moyen de livraison peuvent varier de 
15 jours à un mois (rarement plus) après la 
réception de La commande. Pour les frais de 
douane, comptez à peu près 20% de plus (ou 
prendre un dollar US à 10F). Au moment de 
réceptionner votre matériel, s'il passe par la 
douane, n'oubliez pas de vérifier La taxe qui 
est de 18,6% et non de 33,33%. Précisez bien 
qu'il s'agit de matériel INFORMATIQUE (et non 
vidéo). 


A bientôt et Joyeuse 
Programmation 
Céleste. 


Philippe 


LE GUILLOU Patrick (PPC 305) 
2, Rue Saint-Antoine 
73000 Chambery 


Cher président, 


J'ai bien reçu le numéro de PPC-PC annonçant 
l'Assemblée Générale du 7 décembre. J'espère 
pouvoir y participer, mais au cas où je n'y 
serais pas, voici l'état de mes réflexions sur 
Le Club. 


L'informatique personnelle est pour moi un 
outil professionnel avant tout. Ce qui fait que 
la recherche du petit octet en moins n'est pas 


mon but essentiel dans l'adhésion à un Club. 


L'éloignement de Paris fait que La 
participation aux réunions de Paris est quasi 
impossible et j'ignore un peu l'existence 
d'autres adhérents dans la région. 


La Revue est donc Le lien essentiel où je 
recherche des informations sur Les nouveaux 
produits, ou les produits non diffusés par HP 
(par exemple COSERM et Les modules 32kK RAM du 
HP71 à moitié prix de ceux de HHP) et aussi 
malgré tout un coup d'oeil sur Les 
particularités des machines et Les recherches 
sur Les Lex qui sont développés par les "mordus'. 





Toutefois je ressens un manque : c'est celui de 
pouvoir retrouver des informations regroupées 
sur une machine et ses machines et ses 
développements en matériel et logiciels 
associés. Par exemple, j'ai actuellement Le 
problème de savoir si je peux transmettre un 
fichier entre Le HP71 et un  Olivetti  M24 
(compatible PC). Je pense que des membres du 
Club ont déjà réalisé de de telles connexions et 
j'aimerais bien retrouver Les noms pour avoir 
des renseignements de cartes, de logiciels à 
développer et pourquoi pas de "prêts! car les 
interfaces coûtent cher et ne servent pas tout 
le temps. 


Ou bien autre question, je n'ai que La petite 
imprimante thermique HP, pas de moniteur vidéo 
(ce qui explique La lettre manuscrite...) et je 
voudrais gonfler Le système. Où trouver 
quelqu'un ayant un PAC SCREEN ou autre système 
pour Le questionner sur son indice de 
satisfaction 7? C'est déjà très difficile de 
trouver un revendeur HP correct et en plus d'en 
avoir un qui connaisse toutes ces nuances de 
configuration... 


Comme petite contribution au Club, j'ai sur mon 
HP71 le Translator Pac pour transférer les 
programmes HP41 de calcul que j'ai développés 
(génie civil, calcul de structures). Le module 
TRANS4T crée un fichier “intermédiaire qui 
déclare dans son en-tête La taille du XSIZE à 
générer pour faire Le "LOAD'" sous MHP41" sur le 
71. Suite à de nombreux messages d'erreur et un 
MEMORY LOST mémorable (49k partis en fumée) j'ai 
trouvé que La valeur numérique du XSIZE est trop 
faible quand le fichier est un peu gros. IL faut 
aller modifier La valeur (sous EDTEXT) pour 
augmenter de 100 à 200 (un O0 XSIZE effectué 
après Le "LOAD'"' remet tout en ordre). 


“ 


Bonne programmation et peut-être à l'Assemblée 
Générale... 


LE GUILLOU 


PS : Malgré l'introduction du LEX M'CHARLEX", 
l'imprimante Les minuscules 
accentuées, je n'ai pas fait Le courrier sur 
cassettes. Quand j'aurai trouvé La solution pour 


n'acceptant pas 


une imprimante 80 colonnes plus un moniteur, 
alors tout ira mieux... 
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Cher ami, 


L'appel est Lancé, à savoir s'il existe des 
membres du club dans ta région. Pour les 
matériels compatibles HPIL, tu peux écrire à 
EduCALC. 


Pour La communication HP-IL avec un compatible 
VECTRA/PC, deux solutions sont commercialisées. 
Ces deux solutions utilisent toutes deux la 
carte d'interface HPIL enfichable dans un des 
ports du PC. 


La première solution est d'origine HP : c'est 
le logiciel HPIL-Link. La deuxième est 
commercialisée par La société BCMW (2 bis rue N. 
Houël, 75005 Paris). 


Sinon, il reste La possibilité d'acheter une 
interface HPIL-RS232 (deux modèles disponibles 
actuellement), et de se faire soi-même le 
logiciel. 


Les imprimantes thermiques HP82143 et 162 ne 
reconnaissent pas les caractères accentués, ils 
ne sont pas inclus dans leur ROM. Mais rien ne 
t'empêche de m'envoyer tes articles sur cassette 
(elle te sera renvoyée avec Le prochain Journal). 
L'utilisation de CHARLEX est impérative pour la 
compatibilité avec Les imprimantes ThinkJet ou 
HP82905B, ou La LaserJet qui imprime notre 
Journal. 


Pour tes programmes de génie civil et de calcul 
de structure, je préfère que tu  m'envoies 
directement sur cassette tes fichiers HP41 et 


ton article sur fichier Texte du HP71. 


Amitiés et bonne programmation. 


Philippe. 


Gérard KOSSMANN 

94 Rue Denfert-Rochereau 
92100 Boulogne 

PPC 244 


Bonjour à tous... 


Je profite de mon renouvellement pour aborder 


certains points avec vous : 
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1) Vous joindre deux utilitaires 


permettant de : 


petits 


- Lister Le catalogue contenu dans Le HP-71 ou 
support de masse ("CCAT'), 
- Lister Le fichier courant ("LST"). 


2) Des idées de Lex qui pourraient vous plaire 
intéressantes pour de 
l'auto-programmation, aide... 


et seraient très 


a - MERGE (programmable) ne nécessitant pas la 
relance manuelle, 
b - LIST ou PLIST D,F et LIST$ ou PLIST$ D,F 
D=Début F=Fin, 
c - GOSUB+ n,v ou GOSUB 'LBL',v n = numéro de 
ligne, v = valeur de ligne après n, 
d - L'exécution d'un ordre par l'intermédiaire 
d'une variable alphanumérique, 
e - L'utilisation de piles comme vous l'avez 
réalisé avec "CMD16", 

alpha - N lignes des ordres venant 
effectués avant arrêt, 

beta - N variables précédement affectées avec 
valeurs associées (AV.ARR) (cela pour pister Les 
erreurs commises mieux qu'avec TRACE FLOW). 
f - Un 
valeur numérique paramétrable. Cet ordre serait 
inclu n'importe où. Dès qu'il serait atteint, 
un compteur agirait et alors arrêt automatique 
du programme. (action similaire à TRACE FLOW + 
PAUSE + FOR..NEXT) 
g - Compilateur / décompilateur Basic 
h - Simulateur d'assembleur 
Pas mal, hein ? (environ cinq minutes par 
idée...) 


d'être 


ordre d'arrêt "spécial" égal à une 


Peut-être avez-vous déjà donné La solution pour 
certaines (j'ai aperçu EXECUTE qui doit être 
bien), ou d'autres que je n'aurais pas repéré ou 
ou que vous auriez réalisé entre temps (à vous 
lire). Quant aux deux dernières, je suppose 
qu'elles sont du domaine de l'utopie... 


Vous l'avez compris, en assembleur je n'y 
connais rien et j'aimerais bien, si cela était 
possible, des exemples de Lex  rudimentaires 
réalisant : 

a) A(1)=B+C1, dito avec -, *... 

b) A(1)=B(B+C1)*(C1-B) 

c) A$(1)=B$[B,C1]8C1$[C1-B,C1] 

d) ou tout autre exemple similaire (des Lex 
d'essai que vous auriez) 

e) Une suggestion pour un Livre traitant du 
sujet (si possible en français). | 

Avec des Lex aussi frustres, je serais plus à 
même de m'y frotter, et alors de voir si 


j'accroche ou non. 


3) une question élémentaire : 
Peut-on utiliser librement Le travail du Club, 
c'est à dire : 


A-t'on le droit d'utiliser des Lex, pour des 
réalisations professionnelles, en et hors 
entreprise, qui sont susceptibles de faire 
l'objet de transactions, sans que l'on puisse 
être taxé de plagiat ! 


Ais-je Le droit d'utiliser librement ces Lex ? 
Voilà, c'est fini (enfin presque...) 


Cordialement à tous. 


Salut Gérard, 


» 


Merci pour ton article. Peux-tu à 
respecter ce qui est demandé dans “Ah 1! vous 
écrivez" (voir au début du Journal). En plus, ïl 
ne faut pas mettre d'abréviations dans tes 
les écrire (à l'aide de CHARLEX) en 
minuscules accentuées et insérer un espace après 
toute ponctuation. 


l'avenir 


articles, 


Pour tes propositions d'article, l'appel est 
lancé. Attendons que "les fous du SIG frappent. 


Tu peux utiliser librement Le travail du Club 
pour ton usage personnel et professionnel. Les 
articles sont protégés par un Copyright et tu ne 
peux ni les vendre, ni Les insérer dans un autre 
journal sans en indiquer La souce (JPC et 
l'auteur), ni toute autre action commerciale. 
Par contre, rien ne t'empêche de les diffuser en 
précisant que c'est le résultat du travail des 
membres du club PPC-Paris. 


Merci et à bientôt pour ton prochain article. 


Philippe 





Alaïn GOUBAULT de BRUGIERE 

27, Avenue de Brimont 

78400 Chatou 

Tél.: (1) 39 52 56 01 (domicile) 
(1) 45 61 99 11 (Bureau) 


Vend : 


Un module Forth / Ass pour HP-71 (05/86) : 900 
F (ou échange contre Translator Pac). IDS III du 
HP71 : 200 F. "Synthetic programming on the 
HP41 (W.C. Wickes) : 30 F. "Calculator tips and 
routines"!" (J. Dearing) : 30 F. "Les fonctions 
d'extension c'est facile!" (K. Jarett) : 30 F. 
Livrets d'application HP41 (Control systems, 
Physics, Fluid dynamics and hydraulics, 
Mathématiques de haut niveau, Génie mécanique) : 
40 F chaque. 


Eric MONSENEGO 

105 rue de la Convention 
75015 Paris 

Tél.: (1) 45 54 11 86 


Vend : 
moniteur Zénith vert (600F). Pour HP-71 5 
module curve-fitting (600F), module Ampi-Stat 


(700F), un module finance (600F) et 2 modules 4 
Ko (2*500F). 


Bruno CARDO 

29 bis rue du Général Leclerc 

54360 Damelevières 

Tél.: (1) 83 75 99 49 

(possibilité de déplacement sur Paris) 


Vend : 


HP71B de juin 1985 (3000F). 
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NOUVEAUX PRODUITS 


2 NOUVEAUX MODULES POUR HP-41 


- EXTENDED IL ROM 


Ce module permet à une HP-41 d'accéder jusqu'à 
1 Mo sur mémoire de masse, au Lieu de 128 Ko 
avec Le module HPIL. Viennent aussi des 


fonctions pour travailler avec Les mémoires de 
masse et Les buffers de La HP-41. Toutes les 
fonctions du module HPIL ont été réécrites et 
améliorées. A noter deux fonctions permettant le 
listage de programmes jusqu'en 15 colonnes par 
page. 


Le module vient avec un manuel de 38 pages, 


pour 90$. 

- AEC ROM 

AEC pour  !“Architectes!", “Ingénieurs! et 
!Construction!. Ce module dispose de 
l'ajustement de courbes (16 familles de 
courbes), fonctions hyperboliques et inverses, 
unités en pouces ou mètres, et surtout une 
fonction pour générer un programme HP-41 à 


partir d'une équation de La forme y=f(x). 


Le tout a l'air d'être écrit en micro-code, et 
est vendu pour 100$. 


DEBUGGER POUR LE HP-71 


HP a introduit un debugger pour l'assembleur du 


HP-71. 

Ce debugger émule Le jeu d'instructions du 
processeur du HP-71B. Il est maintenant possible 
de faire de l'assembleur  HP-71 
conditions décentes. 


dans des 


Cela se présente sous La forme d'une disquette 
contenant 4 fichiers Lex (DBGMAINA, DBGLEXIA, 


DBGLEX2A, DBGLEX3A) totalisant 12 Ko. Le fichier 
DBGLEX3A peut être omis, gagnant ainsi quelques 
2 à 3 Ko, mais perdant le désassemblage des 


instructions et autres commodités. 
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Avec ce debugger, il est possible de visualiser 
tous Les registres (même OUT ou IN), de Les 
modifier, de visualiser Le contenu de zones 
mémoire ainsi que de les éditer, de définir des 
points d'arrêt dans le programme assembleur, de 
désassembler Le code, et encore beaucoup 
d'autres possibilités parmi lesquelles Le suivi 
du code en pas à pas, ou l'exécution en une 
seule pression de touche d'un sous-programme. 


Le debugger est accompagné d'un manuel de 107 
pages expliquant bien toutes les possibilités 
(et elles sont nombreuses) du produit. 


La sortie de ce debugger se traduit par deux 
nouvelles références au catalogue : 


Un nouveau module Forth / Assembleur / Debugger 
qui n'est rien d'autre que Le module Forth / 
Assembleur accompagné d'une 
disquette contenant le debugger. 


traditionnel 


D'autre part, un "“upgrade!! (mise à niveau) pour 
les possesseurs de module Forth / Assembleur, 
constitué de La disquette seule est disponible 
pour le prix de 70$ (Réf. : 82478-6). 


En bref, un programme remarquable et absolument 
indispensable pour qui veut faire de 
l'assembleur sur HP-71 ! 


DES NOUVELLES COULEURS POUR THINKJET 


L'arrivée sur Le marché de La M"QuietJet", la 
(Une 


trois 


dernière des imprimantes HP à jet d'encre 
ThinkJet non  HPIL) a amené 
nouvelles cartouches d'encre pour notre ThinkJet 
favorite : 


grosse 


Désormais, imprimer en bleu, en 


rouge ou en vert. Mais Le prix de 


vous pourrez 
la cartouche 
est plus élevé que celui des cartouches noires. 


UNE NOUVELLE INTERFACE RS-232 


Compatible avec l'interface RS232 d'origine HP, 
cette nouvelle interface dispose de buffers plus 
grands. De 2 à 8 canaux RS232 peuvent être 
connectés. Un seul est actif à La fois. De 50 à 


28800 bauds, protocoles XON/XOFF et ENQ/ACK sur 
Les canaux, handshake RTS, CTS, DSR et DTR 
Utilisable sur 


tous 


sur Le canal 1 seulement. 


batteries ou sur secteur. 


FS1164A option 2A (2 canaux, AC) : 235$ 
FSI164A option 2B (2 canaux, batteries) : 295$ 
FSI164A option 8A (8 canaux, AC) : 295$ 
FSI1164A option 8B (8 canaux, batteries) : 349$ 


UN MODEM HPIL 


Le modem 300 Plus est vendu pour 349$. 
Compatible avec l'interface RS232 HP + modem 
Hayes  Smartmodem. 300  bauds  opérable sur 
secteur. C'est un modem à connexion directe (et 
non un modem acoustique), à réponse et appel 
automatiques. IL est équipé en outre d'une prise 
pour lecteur de codes barres. 


IL fonctionne en Norme Bell 103, c'est à dire 
qu'il n'est pas utilisable en France... 

QU'EN EST-IL DES MODULES HP-71 ? 
Récapitulons les diverses sortes de modules 
disponibles pour Le HP-71 deux firmes en 
fabriquent : HHP (Hand Help Products), et CMT 


(Corvallis Microtechnology). 


Modules  HHP à enficher dans Le logement du 
lecteur de cartes : 

32 Ko Ram : 395$ 

32 Ko Eprom : 995$ 

32 Ko Eprom + 32 Ko Ram : 495$ 

64 Ko Ram : 695$ 

96 Ko Ram : 995$ 


Modules CMT à enficher dans les ports frontaux : 


32 Ko Ram : 150$ 
32 Ko Eprom : 110$ 
165$ 


64 Ko Eprom : 


IL est possible de s'arranger avec Le Club pour 
programmer les Eproms (HHP ou CMT). 


Et il reste bien sûr Les modules fabriqués par 
HP, d'une contenance fabuleuse de 4 Ko, et 
vendus pour La modique somme de 70$ 1! Je vous 


avais bien dit qu'ils seraient un jour dépassés ! 





UN MODULE “POCKET SECRETARY'" POUR HP-71 


La firme américaine "Aïsa Software! 
commercialise un module pour le HP-71, 
pompeusement baptisé "Pocket Secretary'". Pour le 
prix de 300$, vous avez un logiciel très lourd à 
utiliser, et essentiellement destiné au marché 
américain. Save your money |! 


Pour finir, une bonne adresse (sauf pour le 


debugger, disponible en France) :\ 


EduCALC Mail Store 
27953 Cabot Road 
Laguna Niguel 

CA 98677 USA 

Tél : (714) 582 26 37 


dollar à 10F. C'est une 
approximation qui tient compte des frais d'envoi 
et de douane. 


Et comptez un 


Pierre David (S1G1,PC37, CHHU616) 


UN NOUVEAU MODULE POUR HP41 


Il arrive des USA, s'appelle MEXTENDED IL ROM" 
et apporte des possibilités d'utilisation des 
mémoires externes qui vont très au-delà de ce 
qu'offraient jusqu'ici tant Le module HP-IL que 
Les X-FONCTIONS. Le tout sans les acrobaties 
nécessaires avec Le module EXTENDED 1/0, et avec 
une convivialité bien supérieure (vous vous 
rappelez cet affreux programme dans Le “Manuel 
la disquette 9114, 
pour aller au-delà des fatidiques 128 Ko ?). 


- si l'on peut dire ! - de 


Le module (en fait, une OTP-EPROM de 4 K, 
aussi, 


et ça 
c'est une nouveauté!) comprend trois 


groupes de fonctions : 


- Mémoires de masse Les fonctions 
pour accéder 
et de nouvelles 


supports ont été 


(toutes 
réécrites 
Méga-octet, 
fonctions de gestion des 


d'écriture ont été 
directement à 1 


rajoutées)}, 
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- Mémoire étendue (communication entre Les XMEM et 
les mémoires de masse enfin possible), 


- Gestion de l'imprimante enfin (choix en mode 
AUTOIO, d'échappement et 
contrôle des "buffers", listages de programmes sur 


envoi de séquences 
plusieurs colonnes (si vous avez une ThinkJet ou 
82905, vous apprécierez...). 


Toutes ces fonctions utilisent Le numéro d'XROM 


27 (donc celui du crayon lecteur optique 


[WAND]). Le manuel, en anglais bien sûr, n'est 
pas très épais (38 pages), mais est très clair 
et bien présenté (impression sur LaserJet, comme 
votre Journal favori...). Il se Lit avec 
facilité (si, si, je vous assure !). Mais le 
mieux est peut-être d'en passer en revue les 
fonctions : 

Fonctions de mémoire de masse/étendue : 

NAMEMED Création (ou changement) du label de 


support, sans avoir à l'initialiser 


SCREATE Création d'un fichier (vide) de taille 
allant jusqu'à... 65535 registres ! 

SWRTA WRTA étendue (mêmes paramètres) 

SWRTK WRTK étendue (mêmes paramètres) 


SWRTP/PV WRTP/WRTPV étendus (mêmes paramètres) 


SUWRTS WRTS étendue (mêmes paramètres) 

WRTBUFX sauvegarde du “buffer" dont l'ID# est 
dans X, dans un fichier 

READBUF opération inverse, mêmes paramètres 


WRTXMEM sauvegarde de l'intégralité de 
L'XMEM utilisée dans un fichier (les 
registres inutilisés ne sont pas copiés) 
READXMEM opération inverse de La précédente 
WRTCAL encore mieux : sauvegarde de La totalité 
du calculateur (équivaut à SWRTSTS + 
WRTXM) 
opération inverse de La précédente 
NEWM étendue (Attention, il y a un "bug!!: 
il faut d'abord formatter le support avec 
NEWM ; sur un support vierge, on risque 
des mauvaises surprises) 
SDIR DIR étendue, avec 
automatique sur Le périphérique désigné 
par PRTAID (voir ci-après). SDIR indique 
Le nombre de fichiers et 
d'enregistrements Libres, en tenant 
compte de ceux qui ont été purgés 
vous avez deviné... 
même chose... 
même chose... 
copie Le fichier indiqué dans ALPHA de 
l'appareil SELECTé au préalable 
celui dont l'adresse est dans X 


READCAL 
SNEWM 


“redirection! 


DIRSIZE 
DIRLEFT 
RECLEFT 
SCOPYFL 
vers 
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CLRBUF 


X>AR 


X contient Le numéro d'ID du buffer (par 
exemple 10 pour le TIME et Les alarmes, 5 
pour ADVANTAGE ou CCD, 6 ou 7 pour les 
fonctions d'imprimante du module  XIL 
lui-même (voir plus bas) 

semblable à XTOA 


Fonctions d'imprimante : 


PRTAID 


ATOBUFX 


SACA 


MCPRP 


MCLIST 


Détail 
diffusé 


$89.95 plus port et douane. 


VISA). 


désigne une imprimante autre que la 
première de La boucle (AID en X) en mode 
AUTOIO (permet par ex. de rediriger un 
SDIR du vidéo sur un autre périphérique, 
dont L'AID peut ne pas être celle d'un 
PRINTER : appareil relié à un 82166 ou à 
La RS232...) 

place une chaîne (de 1 à 24 caractères) 
dans le buffer dont l'ID# est en X 

envoie au périphérique désigné par PRTAID 
La chaîne contenue dans ALPHA. A la 
différence de ACA, La fonction ne modifie 
pas Les caractères 13 et 126, et accepte 
les caractères 128 à 255. Considère les 
caractères 1 à 31 comme un ID# de buffer, 
et remplace Le dit caractère par le 
contenu du buffer (permet d'envoyer 
commodément une séquence d'échappement 
mise en réserve dans un buffer) 

un programme sur X colonnes 
(Multiple Column PRint Program) 

LIST--- sur X colonnes 

Ces deux instructions utilisent le buffer 
No 7. 


impr ime 


ce très joli module est 
(référence #41-686, prix 
Payable par carte 


pratique 
par EduCALC 


Eric GENGOUX (PC 108) 


HP41 


12 


iques 


Calculs de con 


F. Guy 


LL 
x fe nn 
D ut EY 


An 
À 


, 
ue 





: RES 
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CONIQUES 


En lisant Le JPC de Juin, deux choses on attiré 
mon attention. C'est pour cela que j'envoie ce 
programme qui "trainait" depuis trop longtemps 
dans mes carnets de cartes magnétique. J'espère 
que celui-ci abordera un thème nouveau dans le 
JPC. 


IL répond en fait à l'excellente idée de Pierre 
DAVID et Jean-Jacques DHENIN de faire parvenir 
de La part de tous Les membres du club un 
article au JPC, et à l'appel de A. Henry à 
propos du chapitre HP41. 


Ce programme a pour but de faciliter tous Les 
calculs portant sur les coniques. 


Il suffit d'entrer Les coefficients de 
l'équation (Ax°2+By"2+Cx+Dy+E=0) après un 
XEQ'CONIQUE", et ce cher HP41 se chargera de 
calculer Les résultats que l'on doit trouver sur 
une telle équation et ayant rapport aux coniques. 


Amicalement à tous 


Franck GUY (PC 207) 


O1*LBL "CT" 
UXX% FINI *** AVIEW STOP 


OS*LBL "XY'" 
Mg=" RCL 11 SORT ARCL X "H- b=" RCL 12 SQRT 
ARCL X PROMPT RTN 


16*LBL M"CONIQUE" 

FIX 2 CF 00 CF 01 CF 21 M"AX"2+BY"2+CX+DY" 
WHH+E=0" AVIEW "A=2" PROMPT STO 00 "B=?" 
PROMPT STO 01 "C=?" PROMPT 2 / STO 02 "D=?" 
PROMPT 2 / STO 03 "E=2" PROMPT STO 04 

RCL 00 RCL 01 %* X#0? GTO 00 RCL 00 X=0? 

GTO 01 RCL 03 X#0? GTO 02 "X" ASTO 15 


56*LBL 11 


RCL O2 2 %* X”2 ENTER" 4 RCL O0 * RCL 04 * 
-  STO 05 
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69*LBL 10 

X<0? GTO 04 SQRT RCL 02 2 %* - ENTER” 

RCL 00 2 %* / STO 06 RCL 05 SQRT RCL 02 2 

* + CHS ENTER”* RCL 00 2 %* / STO 07 RCL 05 
X=0? GTO 03 #"C: 2 DROITES" AVIEW PSE CLA 
ARCL 15 "+="  ARCL 06 "“}- ET " ARCL 15 "f-=" 
ARCL 07 PROMPT XEQ "CT" 


112*LBL 03 
"C: 1 DROITE" AVIEW PSE CLA ARCL 15 "f-=" 
ARCL 06 PROMPT XEQ "CT! 


122*LBL 04 
NC: ENS. VIDE" PROMPT XEQ "CT" 


126*LBL 02 

MPARABOLE'" AVIEW RCL 00 RCL 03 7 -2 7/ 

STO 08 RCL 02 CHS RCL 03 / STO 09 RCL 04 
RCL 03 / -2 / STO 10 #M"SOMMET:" PROMPT ‘"X=" 
RCL 09 RCL 08 / -2 / ARCL X AVIEW RCL 08 
RCL 10 * 4 %* RCL 09 X°2 - RCL O8 / & 7/ 
M} Y="  ARCL X PROMPT XEQ "CT! 


172*LBL 01 

RCL 02 X=0? GTO 05 MPARABOLE" AVIEW RCL 04 
RCL 02 / -2 / ENTER" RCL 03 X”°2 RCL 01 / 
RCL 02 / 2 / + STO 06 RCL 03 CHS RCL 01 / 
STO 07 MCENTRE:" AVIEW PSE "X="  ARCL 06 

M|- Yz=" ARCL 07 PROMPT RCL 02 X>0? GTO 06 1 
STO 13 GTO 07 


213*LBL 06 
-1 STO 13 


216*LBL 07 

RCL 02 2 / RCL 13 * STO 12 CHS STO 10 
MFOYER:" AVIEW PSE M“X=H ARCL 12 "}- Y=0" 
PROMPT "DIRECTRICE" AVIEW PSE MX=" ARCL 10 
PROMPT XEQ "CT" 


239*LBL 05 
RCL 03 STO 02 RCL 01 STO 00 “Y"  ASTO 15 
GTO 11 RTN 


248*LBL 00 

RCL 02 RCL 00 / CHS STO 08 RCL 03 RCL 01 / 
CHS STO 09 RCL 02 X°2 RCL 00 / RCE 04 
ENTER” RCL 03 X°2 RCL 01 / + STO 10 RCL 00 
/ ABS STO 11 RCL 10 RCL 01 / ABS STO 12 #+ 
SQRT STO 13 RCL 00 RCL 01 * X>0? GTO 09 
UHYPERBOLE" AVIEW PSE MCENTRE:" AVIEW PSE 
uX="M  ARCL 08 "+ Y="  ARCL 09 PROMPT RCL 10 
X#0? GTO 20 "HYPERBOLE DEGEN" "}-EREE" AVIEW 
PSE RCL 00 RCL 01 / CHS SQRT “C: Y=" ARCL X 
ul-X ET Y=-" ARCL X "f-X" PROMPT XEQ "CT" 


319*LBL 20 

RCL 10 RCL 00 / X>0? GTO 19 "C: X°2/" 
ARCL 11 "É--Y"2/"  ARCL 12 "f-=-1"  PROMPT 
XEQ MXYM 12 STO 16 "Y"  ASTO 15 O  ENTER* 
RCL 13 


339*LBL 14 

HASYMPOTES:" AVIEW PSE RCL 12 RCL 11 / SQRT 
NYzN  ARCL X "}-X ET Y=" CHS ARCL X "}-Xx" 
PROMPT  RDN 


355*LBL 17 

MFOYERS:"  AVIEW PSE "F1: X=" ARCL Y "fr Y=" 
ARCL X PROMPT "F2: X=" X<>Y CHS X<>Y ARCL Y 
MH Y=" CHS ARCL X PROMPT X=0? X<>Y 1/X 

RCL IND 16 * RCL 16 STO Z RDN GTO "FI" RTN 


383*LBL 19 

"C: X°2/"  ARCL 11 "+ -Y"2/2 ARCL 12.2: huit 
PROMPT XEQ "XY"M! 11 STO 16 "X" ASTO 15 RCL 13 
ENTER" © GTO 14 RTN 


&O00*LBL 09 

-1 ST* 10 RCL 10 RCL 00 / X>0? GTO 04 
MELLIPSEN AVIEW PSE MCENTRE:" AVIEW PSE "X=" 
ARCL 08 "f- Y=" ARCL 09 PROMPT RCL 10 X#0? 
GTO 15 "C=I" PROMPT XEQ "CT" 


425*LBL 15 

"C: X°2/  ARCL 11 "h+Y"2/"  ARCL 12 "f-=1n 
PROMPT XEQ "XY" RCL 11 RCL 12 - ABS SQRT 
STO 13 RCL 11 SQRT RCL 12 SORT X>Y? GTO 16 
"X ASTO 15 11 STO 16 RCL 13 O X<>Y X=0? 
GTO 08 X<>Y GTO 17 


456*LBL 16 
My" ASTO 15 12 STO 16 O0 ENTER” RCL 13 
GTO 17 RTN 


&66*LBL "FI" 
"DIRECTRICES:" AVIEW PSE CLA ARCL 15 "}-=" 
ARCL X "+ ET " ARCL 15 "f-=" CHS ARCL X 
PROMPT RCL IND Y SORT / 1/X 


484*LBL 08 
Me="  ARCL X PROMPT XEQ "CT" END 
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MEMORY MODULES 


FOR HP-41 HP-71 HP-75 





CMT:-10 1/0 Port Plug-In Modules For HP-41C/CV/CX 
EPROM :- 4K, &K, 16K, 16KB (bank-switched) words 
OTP ROM - 4K, 8K, 16K, 16KB words 

e Up to 64K words with four modules 


CMT:-71 Front Port Plug-In Modules For HP-71B 
RAM - 32K bytes 
EPROM :- 32K, 64K bytes 
OTP ROM - 32K, 64K bytes 

e Up to 128K bytes RAM with four modules 

e Up to 256K bytes EPROM with four modules = 

e Mix RAM, ROM and EPROM 


CMT-75 Front Port Plug-In Modules For HP-75C/D 
EPROM :- 32K bytes 
OTP ROM - 32K bytes 

Up to 96K bytes EPROM with 3 modules 


+e EPROM Plug-in Modules are ideal for software development and storage. 
ee EPROM programming service is available. 


+e OTP ROM (One-Time Programmable) - Low cost, no minimum order. no tooling charge, 
fast delivery, a great way to market your software. 


Corvallis Microtechnology, Inc. Distributor: 
33815 Eastgate Circle 
Corvalis, OR 97333 
(503) 752-5456 


RS PRE LE ee TR eee tee 


ASSEMBLEUR 


P. David 


FORTH 


A. Goubault 


BASIC 


. Bochet 
. Kossmann 


. Bochet 
. Kossmann 
. Kossmann 


OO» Q> 


LE COIN DES LHEX 


Le nouveau PRINTLEX 


A forthiori complexe 


Le nouveau calendrier 
Utilitaires 


Programme "CALENDER" 
Programme "CCAT" 
Programme "LST" 


16 


31 


32 
3,3 
37 
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LE NOUVEAU PRINTLEX 


LES RAISONS 


Dans Le JPC No 26 (Juillet Août 1985), vous 
avez pu découvrir le Lex PRINTLEX et ses onze 
fonctions pour gérer Les imprimantes HPIL. 


Après une année d'utilisation intensive, j'ai 
pu constater un certain nombre de bogues ou 
d'améliorations envisageables. D'autre part, 
d'autres utilisateurs m'ont fait part de leurs 
suggestions et critiques. Voici donc les raisons 
qui m'ont amené à reprendre PRINTLEX : 


- IL y a une bogue qui peut provoquer un 
Memory-Lost. 

- LF devrait avoir un paramètre optionnel (Par 
exemple : LF 5). 

- Le deuxième paramètre de PL est inopérant sur 
ThinkJet. 

-  ESC$ devrait avoir un paramètre optionnel 
pour envoyer des séquences du genre de 
ESC$S("&L72P"). | 

- Tous les ordres laissent l'imprimante en état 
récepteur et Le HP71 en état émetteur. 


Voilà résumées Les raisons qui m'ont incité à 
PRINTLEX. Si vous connaissez 
version, ce sont Là Les seules 
différences. Sinon, je vous invite à Lire ce qui 
suit. 


reprendre 
l'ancienne 


POURQUOI UTILISER PRINTLEX ? 


Quels sont donc les avantages d'utiliser un 
Lex, somme toute relativement gros, pour n'avoir 
qu'une série de séquences d'échappement ? 


Pour deux raisons principales. La première est 
la lisibilité. De même qu'il est plus 
intéressant d'avoir ATTN OFF dans un programme 
plutôt que POKE M"2F441","FN, il est plus 
intéressant d'avoir PL 72,57 plutôt que PRINT 
CHR$S(27)8&"&L72p57F"; . 


La deuxième raison est que Les fonctions de 
PRINTLEX sont beaucoup plus qu'un simple envoi 
de séquences d'échappement. J'explique : 


Le HP71 garde dans sa mémoire La position de la 
tête d'impression. Ceci permet d'utiliser TAB. 
Ainsi, quand vous faites : 
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PRINT TAB(5);'"'A!"!>TAB(20);"B" 


Le HP71 sait combien d'espaces il doit envoyer 
pour amener La tête de lecture en cinquième, 
puis en vingtième position. 


Supposons maintenant que vous fassiez : 
PRINT TAB(5);:"A"&CHR$S(27)&"&dD"; TAB(20);"B" 


Le "AN est en cinquième position, mais Le "B" 
est décalé de 4 caractères à gauche, c'est à 
dire en seizième position. La raison est simple : 
Après Le "A", Le HP71 voit 4 caractères de plus 
à imprimer. Il ne sait pas que l'imprimante ne 
les imprime pas. Pour lui, La tête d'impression 
est en dixième position, et non plus en sixième 
comme avant. 


Les fonctions de PRINTLEX évitent ce piège 
MODE, comme UNDERLINE, BOLD etc... réagissent 
proprement : 


PRINT TAB(5);"A!: 
UNDERLINE ON 
PRINT TAB(20);"B" 


Dans cet exemple, Le "B" est bien placé. 


D'autre part, quand vous faites : 
PRINT 


Vous trouvez normal que l'imprimante passe à la 
Ligne, en remettant La tête d'impression en 
première position. Mais supposons, pour une 
raison ou pour une autre, que vous vouliez faire 


un deuxième passage. Vous ferez : 


ENDLINE CHR$(13) 
PRINT TAB(5);"o!! 
PRINT TAB(5);"x" 
ENDLINE 

PRINT 


Ceci oblige à modifier le ENDLINE. Sans ce 
faire, vous pouvez aussi utiliser : 


PRINT TAB(5):"o":CHR$(13);" x! 


Cette solution est aussi inélégante 
qu'inefficace. Avec PRINTLEX, vous pouvez faire : 


PRINT TAB(5);"o!; 
CR 
PRINT TAB(5);"x" 





LE NOUVEAU PRINTLEX 


Résumé des syntaxes des mots : 


Dans ce qui suit, “imprimante! représente le 
périphérique désigné par l'instruction PRINTER IS. 


BELL 
Envoie Le code CHR$(7) sur l'imprimante, c'est 
à dire active La sonnerie sur La HP829058. 


BOLD ON 

BOLD OFF 

Active ou désactive Le mode "caractères gras" 
sur la  ThinkJet (caractères CHR$(14) ou 
CHR$(15)) sans changer la position de la tête 
d'impression. 


CR 
Envoie un retour-chariot à l'imprimante, et 
remet La position de La tête à 0. 


ESC$ 

ESC (-:<str> :) 

Renvoie soit Le code ESCAPE (CHR$(27)) seul, 
soit La chaîne <str> précédée du code ESCAPE. 


FF 

Fait un CR, puis envoie un code Form-Feed 
(CHR$(12)) à l'imprimante. Ceci provoque un saut 
de page, et la remise à 0 de La position de la 
tête. 


LF 

LF <num> 

Fait Un CR, puis envoie <num> (par défaut, 
<num> vaut 1) codes Line-Feed à l'imprimante. 
Ceci provoque donc <num> sauts de ligne, et la 
remise à 0 de La position de La tête. 


MODE <num> 

Change Le jeu de caractères de l'imprimante. O0 
est Le mode 80 caractères par lignes (cpl), 1 le 
mode 40 cpl, 2 le mode 132 cpl (ou 142 pour la 
ThinkJet), etc. La 
d'impression n'est pas changée. 


position de La tête 


PERF ON 

PERF OFF 

Active / désactive Le saut de perforations sans 
changer la position de la tête d'impression. 


PL 

PL <phys> 

PL <phys> , <log> 

Définit Les longueurs de page. La longueur de 
la feuille est mise à <phys> lignes, La longueur 
du texte dans La feuille est mise à <log>. Si 
aucun paramètre n'est donné, PL se comporte 
comme : PL 72,66 à PERF ON. La tête d'impression 
n'a pas changé de position. 


UNDERLINE ON 

UNDERLINE OFF 

Active / désactive le mode “caractères 
soul ignés"  (ThinkJet / LaserJet seulement) sans 
changer la position de La tête d'impression. 


WRAP ON 

WRAP OFF 

Active / désactive le mode “passage automatique 
à La ligne" (ThinkJet / LaserJet seulement) sans 
changer la position de La tête d'impression. 


A bientôt, 


Pierre David (SIG1, PC37, CHHU616) 


LEX 'PRINTLEX! 
t EQU 39 Le Token de départ 
ID #E1 
MSG 0 
POLL O0 


ENTRY BELLe 


CHAR  #D 
ENTRY BOLDe 
CHAR  #D 
ENTRY CRe 
CHAR  #D 
ENTRY ESCe 
CHAR  #F 
ENTRY FFe 
CHAR  #D 
ENTRY LFe 
CHAR  #D 
ENTRY MODEe 
CHAR  #D 
ENTRY PERFe 
CHAR  #D 
ENTRY PLe 
CHAR  #D 
ENTRY UNDERLINEe 
CHAR  #D 
ENTRY WRAPe 
CHAR  #D 
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Syntaxes : 


KEY ‘BELL! BELL 

TOKEN t 

KEY ‘BOLD! BOLD ON | OFF 
TOKEN 1+t 

KEY ‘CR! CR 

TOKEN 2+t 

KEY  ‘ESC$! ESC$ [ (€ <str> ) ] 
TOKEN  3+t 

KEY ‘FF! FF 

TOKEN 4+t 

KEY ‘LF! LF [ <num ] 

TOKEN 5+t 

KEY ‘MODE! MODE <num> 

TOKEN 6+t 

KEY ‘PERF! PERF ON | OFF 
TOKEN 7+t 

KEY ‘PL! PL C <numi> [, <num2> 1] 
TOKEN 8+t 

KEY  'UNDERLIN' UNDERLINE ON | OFF 
TOKEN 9+t 

KEY  'WRAP! WRAP ON | OFF 
TOKEN  10+t 

ENDTXT 


KKKKKRERRRRRRRERRRRREREREREREREREERERRRERERERERERRERERRRE 


* * 
LRABLE DES EQUIVALENCES * 
“ . 


KKKKERERRERRRRRRMMMMRE RE RER HE ee De De De D DR RE he 


ADHEAD EQU #181B7 
ARGERR EQU #0BF19 
ASLW3  EQU #0ED21 
ASLW&4  EQU #OED1E 
CNVWUC EQU #03FB8 
DO=AVS EQU #09B2C 
D=AVMS EQU #1A460 
DELAYp EQU #02AC6 
DROPDC EQU #05470 
EOLCK  EQU #O2A7E 
EOLXCK EQU #05405 
EXPEX- EQU #0F178 
FIXP  EQU #O2A6E 
FORSTK EQU #2F59E 
MFERR  EQU #09393 
MOVEUO EQU #1B162 
NXTSTM EQU #08A48 
OUT2TC EQU #02CFD 
OUTELA EQU #05303 
POLL  EQU #12337 
POPIR  EQU #0E8FD 
POP1S  EQU #0BD38 
PPOS  EQU #2F956 
RESPTR EQU #03172 
RJUST  EQU #12AE2 
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RNDAHX EQU  #136CB 
STMTRO EQU  #2F871 
SYNTXe EQU  #O2E2B 
TRACDC EQU  #052FC 
WRDSCN EQU  #02C2A 
eDVCNF EQU  #00040 
pPRTIS EQU  #0000F 
tON  EQU  #000E0 


KKKKKKRKKREEKREERERREREREERERERRRRRÉRRÉRERRRERRRRRAARRE 
* A 
*ROUTINES DE DECOMPARSE * 
* * 


KKKHRRRREHERERERERREEEEREREEREREREERERERRRERREEEERÉHEÉ 


KKKRKERKEREEEEERRREREEEERREERRRRRRRRÉRRRRRERERELREERER 


* 

* Routines de parse : 

* 

* Dans ce qui suit, ORDRE représente l'ordre en 
* cours d'analyse. Par exemple, pour LF [ <num>], 
* ORDRE est : LF. 

* 

* Détail des syntaxes admises par les routines : 
* 

* parse : ORDRE 

* UNDERp : ORDREE ON | OFF 

* ONOFFp : ORDRE ON | OFF 

"LFp : ORDRE [ <num> ] 

* PLp : ORDRE [ <num> [, <num>]] 

* NUMp  : ORDRE <num> 

* 


KRRRRKRERERRRERERRERERRREREREEEKRRRERRERERRRRRRERERÉRÉU 


parse RTNCC Retour avec Cy=0 


KRRRRRRERÉRRRRRRRRRERERRRRRRARÉRRÉRRÉRERRRÉLRRARRRRÉ 


* UNDERP 
* But: analyser UNDERLINE ONJOFF 


KKREKRRERRRRRRERERERRRERERRRERRÉRRRRRRRERRERRRRRARÉÉ NÉ R 


UNDERp GOSBVL =CNVWUC Conversion en majuscule 


LCASC !E! 

2A#C B Est-ce FE"? 

GOYES syntax Non: "Erreur de syntaxe! 
D1=D1+ 2 Oui: caractère suivant 


* 


* Le code de UNDERp se poursuit dans ONOFFp 
* 


RRRRRRRRÉRRRRRRERRÉRRRRRERRERERRERERRRRRRRRERERRRRRR 


* ONOFFp 
* But: analyser ON]OFF 


KKRRKRERRRRERRERERRRRRERRRERRERERRERRRRRRARRARRRRRÉRÉEÉE 


ONOFFp GOSBVL =WRDSCN Token suivant 
CON(2) =tON Est-ce ON ? 
REL(3) =parse Oui: retour 
CON(2) 1+=tON (<==> =tOFF) 
REL(3) =parse 
NIBHEX 00 Fin de La table 

Si nous sommes arrivés Là, c'est que Le token 

n'était ni tON, ni tOFF. Alors, on ne reconnaît 

pas l'ordre, et on repasse La main au système 

d'exploitation : 


#X XX XX *# * * 


syntax GOVLNG =SYNTXe “Erreur de syntaxe! 


resptr GOVLNG =RESPTR 


KKKKEKRERERRRRÉRÉRRRRERRERERRERERRRRRÉRÉRÉRRÉRERERÉÉÉ 
* LFp 


* But: analyser LF [ <num> ] 
RORRONHHH he ee he eh he he OH RH he ee ee HU RER RAA RAR 


LFp GOSBVL =EOLCK 
GOC resptr 
GOSUB resptr Non : il y a donc un nb 
GOTO  =NUMp alors parsons-le. 


Fin de ligne ? 


KRRRRRRRR ER eh he he eh ee he he he he he he he de he de de che ee ee de de he de ke de de de 
" PERD 

* But: analyser PL [num [, num] ] 

* Principe: on teste Le premier paramètre, et s'il 


* existe, on continue sur DELAYp 
KRKHRRRRRRRRRRERERERERERÉRRRERRRRRRRÉRÉÉRÉ HR Re He Re Re de he 


Premier param. existe ? 
GOC resptr Non: on revient a Basic 
GOSUB resptr Oui: on branche sur 
GOVLNG =DELAYp DELAY num [, num] 


PLp GOSBVL =EOLCK 


KKKKKKRERRKERERERRRRRRERÉRÉERRERH RHUME HOUR ÉUAÉUUËUUUMUN 


* NUMp 


* But: analyser un ordre de type ORDRE <num> 
KAKRKRKEKKKHRERRRERRRRRRRRRERRRRERRRRRRRRRÉRÉRRMRAUARÉUÉR 


NUMp  GOVLNG =FIXP 


KKKKREKRERERREMRRÉRÉAÉÉRÉRRÉULRMUMRMRERRERRÉRRRRR RÉ RÉ RÉ 
* 


* Routines de decompilation : 
* 


* Détail des entités decompilées : 

* 

* decomp : ORDRE 

UNDERd : ORDREE ON | OFF 

* ONOFFd : ORDRE ON | OFF 

* LFd : ORDRE [© <num> [, <num> [, <num> ...]]]] 


* 


KAKKKRKKRRRRREREREEEREEEERRRARRRRERAREREEEELERRRERRHRRR 


decomp GOVLNG =OUTELA 


KKKKKKKKRERKEREKREREHRRRRERRRRRERREREEEEREEEEKEEEEERERERE 


* UNDERd 
* But: décompiler UNDERLINE ON|OFF 


KKKKKKKKRKRKRRERRERKERRERKRKRERRREREREEREEREREREERREREEEEEÉE 


UNDERd LCASC ! E! 
DO=D0- 2 Retour sur l'espace 
GOSBVL =OUT2TC Affichage de "E" 
A=DAT1 B Token suivant (ON/OFF) 

* 

* Le code se poursuit dans ONOFFd 

* 


KKKKKKKEKRERERRRERRRRRRRRRRRRARÉRERERRRRERRREREREÉRÉ 


* ONOFFd 


* But: decompiler une alternative ON[OFF 
KKKEKKHRERRRERRRRERERKREREREERRERRARERRERERRRERRERAEE 


ONOFFd GOVLNG =TRACDC Décompilation du token 


KEKKRERRERERRRERERRRRRRRRRRRRRRRRERRRERERERRERAURUÉX 


* PLd, NUMd, LFd 
* But: décompiler un ordre suivi d'une suite 


* d'expressions numériques. 
KKKKKKKRERERERRRRRRERRREREEEERREERERRÉRRÉÉMÉMMMAMUNÉ 


PLd 
LFd 
NUMd  GOVLNG =DROPDC Aucun param.: autorisé 


KKKKKRKKKKRRRRRRREREERKRÉEREREREREEEEEEKERREREEHREEEEÉ 


. # 
OT TE PR NAOTRE D'IMPRESSION* 
* * 


kk EE ke he de de he he he he ee he he ee ee MR Re he he he ee he he he dc ee ee de he ee ee 


KO ke eh he he ee he he ee ee ee ee ee ee ee 


* PRINT 


But: Cette routine imprime la chaine pointée par 
la première adresse de la pile de retours. 
Le retour peut s'effectuer de deux manières: 


Æ XX  *X  * 


- PR-BAS: retour à Basic 
- PR-RTN: retour à la routine appelante. 


*+ *#  * 


* Principe: 
Le poll pPRTIS est envoyé, pour être intercepté 
par L'HPIL. Celui-ci renvoie l'adresse de [a 


* 


* 


* routine PRASC qui se chargera de l'impression. 
* 

* Schema de l'appel: 

# GOSUB PR-BAS (ou PR-RTN) 

= CON(T)n 

* CON(2) C1 

w ' 

* CON(2) Cn 


* NB: utilise RO, R2, R3 


KRRRRRRRERRKRRRRRRRARKRRKRRRRARKRRARKRERERRRAREREEXX 
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D Ge GE 


PR-BAS ST=0 4 Le retour se fera selon 


GOTO print l'état du flag 4 (4 parce 
PR-RTN ST=1 4 les autres étaient deja 
print P= 0 utilisés...) 

SETHEX 


GOSBVL =POLL 
CON(2) =pPRTIS Envoi du Poll 
2XM=0 A-t-1il été intercepté ? 
GOYES noerr Oui: pas d'erreur 
LC(2) =eDVCNF Non: "Unité non trouvée! 
GOVLNG =MFERR 

noerr 


KAKXRÉRRRERR ERA RÉ RÉRRRRÉR 


* Modification du <861023.2238> 

+ 

* nettoyage de La boucle après l'envoi des ordres 
* par appel à La routine PREND, dont l'adresse est 
* donnée par un REL(5) avant le code de PRASCI. 


D1=A D1 := * code de PRASCI 
D1=D1- 5 D1 := * (REL(S) =PREND) 
C=DAT1 A C(A) := REL(5) 

B=C À B(A) := REL(5) 

CD1EX CCA) := ” #F107A 

C=C+B A CC(A) := ” code de PREND 
RO=C 


* 


* Fin de La modification 
KR RRRRRRRRRRRÉERÉRÉRARRRE 


C=RSTK Adresse de La table 

D1=C dans D1 

C=C+1 A C: * premier caractère 

D=C ï D=ad. du premier caractère 

GOSUB ici Pour avoir la position du 
ici C=RSTK pointeur programme. 

B=C A 

LC(5) Cret1)-Cici1) 

C=C+B A C=adresse de retour 

RSTK=C empi lée 
* 
* Après Le poll pPRTIS, si celui-ci est intercepté 
* par L'HPIL, nous avons l'adresse de La routine 
* qui se chargera de l'impression dans A(A). 
* 
* Le seul moyen, à ma connaissance, pour faire un 
* GOTO à une adresse variable est d'empiler cette 
* adresse dans La pile de retour, puis de faire 
* un RTN. 
* 

C=A A 

RSTK=C 

A=0 A 

A=DATI 1 A(A)= nb de caractères. 

RTN <=> GOTO A(A) 
ret1 
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RKARKRKRREARERRERERLRERREREÉ 


* Modification du <861023.2240> 


* 


* nettoyage effectif : 


* 
GOSUB ici2 
1CIi2 C=RSTK 
A=C A 
LC(5) (ret2)-(ici2) 
C=C+A À 
RSTK=C RSTK := ” ret2 
C=RO 
RSTK=C RSTK := * PREND 
CD1EX 
RO=C 
RTN <==> GOVLNG =PREND 
ret2 P= 0 # O0 en sortie de PREND 
2ST=0 & PR-BAS ? 
GOYES nxtstm  GOYES retour à Basic 
C=RO 
RSTK=C 
RTN retour à l'appelant 


nxtstm GOVLNG =NXTSTM sinon retour à Basic 


* 


* Fin de La modification 
KKRKRERRRRERRERERERERRERRRÉ 


HRRRRRRRRRRÉRERERREEEERERERRERERERRRERRRÉRERRRRÉERÉER 
* onoff? 
* But: tester le token suivant: 


* Sortie: Cy=1 si tON, Cy=0 sinon 
KEKRERRRRRRREEEREEREEEKEREERERRERRRRRRRERRÉRREERERRERÉ 


onoff? A=DATO B 


LC(2) =tON 

2A=C B 

RTNYES Retour avec Carry=1 
RTN Avec Cy=0 


AAC HO ACC ee Re ee eee RER RO RAR 


# BELL - 


RRRERERRRRRRRRRRÉRRRRÉRÉRÉÉÉRRÉRMRMHOUHRHE HE ee de de de he de eh ee ee de 


REL(5) decomp 
REL(5) parse 
BELLe GOSUB PR-BAS 
CON(1) 1 
CON(2) 7 


1 seul caractère 
code 7 


he he he he he he he he eee he ee eee ee eee ee ee RO RONA 


” BOLD ON]OFF > 
de he he ee he eee he he ee ee eee ee he he ee de ee ee eee eee eee 


—_—_—— 


nn mme me ms mme mur 


REL(5) ONOFFd 
REL(5) ONOFFp 
BOLDe GOSUB onoff? ON ou OFF ? 
GOC boldon -> ON 
GOSUB PR-BAS -> OFF 


CON(1) 1 1 seul caractère 

CONÇ2) 15 SI (Shift In) 
boldon GOSUB PR-BAS 

CON(1) 1 

CON(2) 14 SO (Shift Out) 


KKKKKRKEAKKRKKRERKRERERERRERARÉARAERERRERERERRRERRERERRERE 


* CR * 


RARAKRARRRRERKREREREKERERRRERRARERRRRRRARRRRARRARRRRÉAREÉ 


REL(5) decomp 

REL(S) parse 
CRe GOSUB cr 

GOTO  nxtstm 


CR est aussi utilisé dans 
LF et FF 


KKKKKERRRRRRRRMRRRRARREREREEEEEREEEREERÉMMU HE HE RH HU RÉ 
*'er 

* 

But: envoyer un retour-chariot, et remettre La 
position de La tête d'écriture à 0. 

Note: La position de La tête d'écriture est 
gardée en mémoire par Le HP71. Elle est utilisée 
par TAB. 


KRRRARRRÉÉRÉÉRÉRÉÉRHÉËHMUÉMURRMMUMMRM HR RER R HR EE ee ee 


+ *Ù # + + 


cr D1=(5) =PPOS 
C=0 B 
DAT1=C B 
GOSUB PR-RTN 
CON(1) 1 
CONÇ2) 13 
RTN 


Printer POSition 


PPOS=0 (TAB=0) 
Impression avec retour... 


KKKKKKKKKERKRKRRERÉRRRRRRERRERRRRRERREREREREREREREEERXEE 


- ESCS ” 


KKKRKRKRRERRRRRÉRRRÉRÉRRRÉRRERRRRRÉRRERRRARRRRERERRRERRERE 


NIBHEX 4 

NIBHEX 01 
ESCe ?C#0 S 

GOYES ESC20 


O0 mini, 1 maxi 


CD1EX Di=pointeur de pile math. 
R1=C dans R1 pour ADHEAD 
D1=C 
D1=D1- 2 
P= 0 
LC(2) 27 ESC 
DATI=C B 
ESC10 GOSBVL =D=AVMS requis par Basic 
ST=0 0 Pas de retour 


GOVLNG =ADHEAD Ajout de l'en-tête 





ESC20 CDOEX 


RSTK=C 

GOSBVL =POP1S 

CD1EX D1 := ” fin de ère chaîne 
DO=C Start of source 

D1=C 

D1=D1- 2 Start of dest 

R2=C R2 := * fin de 1ère chaîne 
C=C+A A C(A) := * début de chaîne’ 
B=A A B(A) := block length 

R1=C R1 := * début de chaîne 


GOSBVL =MOVEUO 


C=R2 

D1=C 
D1=D1- 2 
C=R1 

DO=C 
C0=D0- 2 
LC(2) 27 
DATO=C B 


Top of Math-Stack 


C=RSTK 
DO=C 
GONC  ESC10 B.E.Tr. 


KKKRKRERERRRRRRRERERERERRERERERERERERRRRRRRÉÉRÉÉÉRRRRÉEÉ 


* FF * 


KKKKERERERERERERERERERERERRRRRRÉRARERRAÉEELXEREERÉÉ 


REL(5) decomp 
REL(S) parse 
FFe GOSUB cr 
GOSUB PR-BAS 
CON(1) 1 
CON(2) 12 


On remet d'abord PPOS à 0 
et on envoie... 

...Un caractère... 

..-de code 12 


Argerr GOTO argerr 


KKKKKKRKKKRRKRRRRKRERRKKKKRKKKKRKRERÉRRRRERRRRREARREREXXX 


* LF [ <num> ] * 
KKKXEKEKEKERERERÉEREREREERERRERERARREREEREEEREREREREERÉÉÉ 


REL(5) LFd 
REL(S) LFp 

LFe  A=DATO B 
GOSBVL =EOLXCK 


KKKKKKRRRRRERRRRRRRRÉRÉÉÉÉÉÉ 


* Modification du <861023.2000> 


* 


* 
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A=0 A 

GONC  Lf05 

A=A+1 A 

GONC  noexpr  B.E.T. 


Lf05  GOSBVL =EXPEX- 
GOSBVL =RNDAHX 
GONC  Argerr paramètre < 0 


noexpr R1=A 


GOSUB cr une seule fois ! 
GOTO Lf20 
* 
* Boucle d'envoi des LF. 
* La boucle peut ne pas être exécutée (LF 0), ça 
* ne doit pas générer d'erreur. 
* 
Lf10  R1=A 
GOSUB PR-RTN 
CON(1) 1 
CON(2) 10 
Lf20  A=R1 
A=A-1 A 
GONC  Lf10 
GOTO nxtstM 
* 


* Fin de La modification 
RARE RRRRRERERERRHERRERRRRÉÉ 


ARgerr GOTO  argerr 


KKRERRRRERERRRRRRRERRRRRRRRERRRRRRRRRRRRRRRRRERERERÉ 


* MODE <num> * 
RRRRRRRRRRRRRRRRRRERARÉRRERRERRERREERRRERRRERRRRERRRRERÉ 


REL(5) NUMd 
REL(5) NUMp 
MODEe GOSUB evalex 


Un param. num. obligatoire 
évaluation de ce paramètre 


C=0 W 

C=A WP Ici, on a P=0 

2A#C M nb > 9 ? 

GOYES ARgerr 

SETHEX 

LCASC ‘O0! Conversion en Ascii 
A=A+C B 


GOSBVL =ASLW4 Décalage à gauche de 7 
GOSBVL =ASLW3  quartets 
LCHEX 53006B261B5 ESC '&k S'! 


A ce niveau, il est bien important de voir ce 
que l'on a dans les registres: 


C(WM=xxxxx53006B2618B35 
A(W= 00000003n00000 00 (MODE n) 


L'addition de À et C nous donne bien évidemment 
la bonne séquence d'échappement. 


NO ON OÙ Ù #6 #4 * * *# 
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C va alors être transféré en mémoire (AVMEMS), 
afin d'être envoyé à PRASC. 


#  *# *#  * 


C=C+A VW 

GOSBVL =DO=AVS DO := AVMEMS 

DATO=C 11 La table est créée à cet 
CDOEX endroit, pointé par DO. 
RSTK=C On simule un GOSUB. 

GOTO PR-BAS 


KRRRRRRRRÉRRÉRRRRRRRREEREERERERRRRRRRRRRRRRRERERERR 


* PERF ON[OFF * 


KRRERRRRRRÉEREREEEEREEEREEREEERERRRRRRRRRRRARRRRRRRRE 


REL(5) =ONOFFd 
REL(5) =ONOFFp 


PERFe GOSUB onoff? 


A=0 A 

LEASC  !L' Fin de séquence 
GONC  prfoff 

A=A+1 AÀ 1=perf on 


prfoff GOSUB escseq 


GOTO nxtstm retour à Basic 


KKRERRRERERRRRRRRRRRERÉRÉRRRÉRERRERRRERERRRRRERERER 


* evalex, trad 


* 

* But: 

* - evalex: évaluer La chaine de tokens pointée 
# par DO, et... 

* - trad: dépiler le:sommet de La pile-maths, 

” convertir Le nombre en décimal, et vérifier 
* 


qu'il est inférieur à 999. 
KKHERRRRRRRRERRRRERRERRERRRREÉÉERÉEÉRERÉERRRRREERLEER 


evalex SETHEX requis par EXPEX- 
GOSBVL =EXPEX- Evaluation... 


trad  GOSBVL =RJUST Traduction en entier déc. 


SETHEX après RJUST 

GOC argerr Inf 

C=0 W 

LCHEX 999 C=00...00999 

?2A<C VW 

RTNYES Retour autorisé si < 999 


argerr GOVLNG =ARGERR sinon: “invalid argument" 





KRARÉREREEEEEEEEEEEEEEKKREEEEEEREREREREEEÉRÉRRRREK 


* escseq 


But: Envoyer une séquence du type: ESC & L ### $ 
ou ### est dans A(A), et $ dans C(B) 


Note: 
Beaucoup de séquences d'échappement sont de La 
forme ESC & L # $, ou: 

# est Un nombre entier 

$ est un caractère (f/F, p/P, l/L ou d/D) 
Il est à noter que les zéros de tête dans # ne 
sont pas pris en compte. Cette caractéristique 


est très intéressante... 


Principe: 

- La table est construite à partir de AVMEMS: 
Les caractères ESC, & et L sont d'abord 
placés, puis on calcule # sur 3 chiffres 
(octets), et enfin, on place le caractère $ 
à La fin. Il faut noter que cette séquence 
d'échappement est de longueur fixe. 

- La table est suivie en mémoire d'un code RTN 
(#01). Le retour de PR-RTN se fera là, d'où 
retour final à La routine appelante... 


OÙ OÙ OÙ OÙ 6 OÙ 6 OÙ OÙ OÙ OÙ 6 #6  #  Ù  #  X  *# 


Simple, non ? 
KKKEKKKKERKRERREKEERÉERÉEEREKEEKEKERREEEERERERRERRERERRERÉ 


escseq D=C B Sauvegarde du caractère 


B=A A et du nombre 

DO=(5) =STMTRO 

LCHEX 6C261B7 7 caractères, dont: ESC & L 

DATO=C 7 

DO=D0+ 7 

BSRC 

BSRC B(0-0)=premier nombre 

LCASC O0! C(B)=#30 

P= 2 3 boucles au total 
boucle A=B A A(A)=0000x 

B=0 A B=xx0000. ..0000 

A=A+C B A(B)=3x 

DATO=A B 

DO=D0+ 2 

BSLC B=x0000. ..0000x 

P=P-1 


GONC boucle Boucle si P>=0 


KKKKKKKKERKRRRRRRRRRRRREÉ 


* Je m'avais gouré tout plein... 


KKKKRKRRRRRRRRRRRRRRRRRÉÉ 


C=D B caractère final 
DATO=C B 

DO=D0+ 2 

LCHEX 10 code de RTN 
DATO=C B 

CDOEX } C=D0 


DO=C } 

RSTK=C RSTK := ” RTN dans La table 
DO=D0- 15 DO=début de La table 

CDOEX 

RSTK=C puis l'adresse de La table 
GOTO PR-RTN Envoi... 


LÉRÉÉRÉRÉRÉRÉRÉESSLESESLSESSESESESSSESSLESSESS ESS SES SSES SELLES S] 


* PL [ <num> [ , <num> ] ] à 
KKKKKKKEKKKKKEREREERÉRRRERREEEKERERERRRERERERRRRÉARÉ 


REL(5) PLd 
REL(5) PLp 


PLe A=DATO B 
GOSBVL =EOLXCK 
GONC parametres 


A(B)=token suivant 
Fin de ligne ? 


GOSUB PR-BAS Oui: chaîne par défaut 
CON(1) 11 11 caractères 
CON(2) 27 

CON(2) '&! 

CONÇ2) 'l! 

CON(2) 7! 

CON(2) '2! 

CONÇ2) 'p' 

CON(2) '6! 

CON(2) '6' 

CONÇ2) 'f' 

CON(2) ‘1! 

CON(2) 'L' 

parametres 


KKKKKERKRERERERRERRRRRRRERERR 


* Deux cas : 

* PL fe 

* -> ESC &l72P 

- Sommet Math Stack : 72 
*. PL 72,66 

* -> ESC &l72P ESC &l66L 

* 


Sommet Math Stack : 66 
KKKEKRKKEKKERKRKRRRÉRRÉÉÉÉÉÉÉ RÉ 


GOSUB evalex Evaluation des paramètres 


* D1 = * 72 (66) 
R1=A R1 := dernier paramètre 


D1=D1+ 16 
AD1EX 


Dépi lement 


KKKKKKRKRRRÉRERÉREEERÉRÉEE RÉ 


* Modification du <861023.2257> 


* 


* Inversion de l'ordre d'envoi des deux paramètres 
* 
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DO=(5) =FORSTK WRAPe GOSUB onoff? 
C=DATO A GOC wrapon 
ST=1 9 
2A>=C A Un seul paramètre ? GOSUB PR-BAS 
GOYES unique Oui: longueur de la page CON(1) 5 
ST=0 9 pas qu'un seul paramètre CON(2) 27 
D1=A CON(2) '&' 
GOSBVL =POPIR CON(2) 's! 
GOSUB trad A = premier paramètre CONÇC2) ‘1! 
AD1EX CON(C2) 'C! 
unique 
AD1EX wrapon GOSUB PR-BAS 
LCASC  'P! CON(1) 5 
GOSUB escseq CON(2) 27 
2ST=1 9 CON(2) '&' 
GOYES nxtstM CON(2) 's'! 
A=R1 CON(2) 'O' 
LEASC. ?F CONÇ2) 'C! 
GOSUB escseq 
END Ouf 111 
nxtstM GOTO nxtstm Retour à Basic 
* 


* Fin de La modification 
KKKKRKERRRRRRRRRRRRRRRRÉ RÉ 


KKKKRERRRRRRERERRRERRREERERERRRRÉRRRRLRRRRRRMRRRRRRAR 


: UNDERLINE ON|OFF Lg 


KKKKKKRERERRERRRRREREREEEERERRERERRRRRERRRRRRRRRRRRRRRR 


REL(5) UNDERd 
REL(5) UNDERP 


UNDERLINEe 


UNDon 


GOSUB 
GOC 


GOSUB 

CON(1) 
CON(2) 
CON(2) 
CON(2) 
CON(2) 


GOSUB 

CON(1) 
CON(2) 
CON(2) 
CON(2) 
CON(2) 


onof f? 
UNDon 


PR-BAS 
4 difficile à paramétrer 
27 
1&1 
‘d! 
‘a! 


Séquence d'échappement 


PR-BAS 
4 

27 

1&! 
‘d' 
D! 


KKKRRKRRRRRRERERRRRRRRRRRRRRRRRRRRRERRRRRRRRRRRRRRÉ 


* 


WRAP ON|OFF * 


KRRRERRERRRRERRRRRRRERRERRRERRERERRRRRERRRERRRRRRURE 
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REL(5) 
REL(5) 


ONOFFd 
ONOFFp 








A FORTHIORI COMPLEXE 


Le vocabulaire FORTH qui vous est présenté 
ci-après simule le fonctionnement d'une 
calculatrice RPN travaillant sur des nombres 


complexes. Vous pouvez effectuer toutes sortes 
de calculs sur ces nombres en manipulant une 
pile à 5 registres (X, Y, Z, T et LASTX) de la 
même manière que sur Le HP41. 


Le Listing de ce vocabulaire n'est pas commenté 
par manque de place (le fichier source occupe 
déjà 6700 octets) mais Les points d'entrée 
utilisateur sont très simples d'accès ;: seules 
quelques fonctions internes sont plus complexes 
et je suis tout à fait disposé à vous en 
expliquer Le fonctionnement detaillé si besoin 
est. | 


Une fois Le fichier source chargé, exécutez la 
commande COMPLEX MODE suivie de DISP. Vous voyez 
alors apparaître Le registre X de La pile : 


Vous êtes prêt à effectuer tous Les calculs qui 
vous passent par La tête. Pour introduire un 
nombre,  exécutez La commande INPUT qui vous 
demandera d'entrer la partie réelle puis la 
partie imaginaire ; vous n'êtes pas obligé de 
taper Le point décimal des nombres que vous 
entrez. Par exemple, entrez le nombre 3+i, vous 
verrez apparaître : 


Z=3 +i 


- 


._ Les fonctions à votre disposition sont les 
suivantes : 


+ - * et / sans commentaires. 

1/X, XN, X°2, Y'X, ‘EN ALOS, 1E5"X, SIN ;T:C0S, 
TAN, ASIN, ACOS, ATAN, SINH, COSH, TANH, ASINH, 
ACOSH, ATANH sont tout aussi évidentes et 
dites-moi franchement si vous trouvez qu'il en 
manque. Oui ? eh bien, en voilà d'autres : 

n ROOT calcule La racine nième de X à l'ordre 
que vous donnerez (entre Q et n-1). Pour n=2, 
utilisez SORT. 

Y"X-1 calcule La racine Xième de Y. 


X"Y élève Le nombre réel X à La puissance de Y. 


BAR retourne Le conjugué de X. 








CHS change le signe de X. 


Pour manipuler La pile, vous pouvez utiliser 
Les fonctions suivantes : 


X<>Y, RUP, RDN, LASTX, CLX, CLST, FENTER et 
FDROP. 

STO et RCL effectuent des opérations de 
stockage sur La pile. Par exemple, Z  RCL 
rappelle en X Le contenu de Z ; T STO stocke en 
T Le contenu de xX. 3 
La fonction VIEW affiche Le registre 
sélectionné pendant environ 2 secondes. Par 
exemple L VIEW affiche Le registre L (LASTX). 


Enfin, vous avez divers modes disponibles. pour 
l'affichage ou l'entrée des nombres : 


POLAR vous place en mode polaire ; Les nombres 
sont entrés sous La forme (r,8) et sont affichés : 


z=(r)Ei(68) 


RECT vous 
rectangulaire. 


permet de revenir en mode 
A noter que les nombres sont 
toujours stockés dans ce mode. 


STD, FIX, SCI et ENG vous permettent de varier 
la présentation des nombres. 


DEGREES et RADIANS sélectionnent respectivement 
le mode degrés ou Le mode 
l'affichage des angles. 


radians pour 


Vous remarquerez à ce propos La diversité des 
affichages possibles suivant La valeur des 
nombres et le mode choisi. J'ai fait en sorte 
que cet affichage soit Le plus naturel possible. 
C'est compliqué, je vous recommande : donc 
d'essayer. 


Chaque fonction se termine par l'affichage du 
nombre dans Le registre X, simulant ainsi le 
fonctionnement d'une calculatrice. 

Pour vous aider à toutes ces 
fonctions, vous pouvez utiliser Les définitions 
de touche suivantes : 


manipuler 


DEF KEY 591,11 
DEF KEY ‘f/!,'SQRT! 
DEF KEY 'fG','INPUT! 
DEF KEY 'fJ','DISP! 
DEF KEY ‘f4!,'SIN' 
DEF KEY ‘f5!,'C0S! 
DEF KEY 'f6!,'TAN' 
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DEF KEY 1fXi 1EAXI 

DEF KEY ‘fV','CLST! 

DEF KEY ‘fM','CLX' 

DEF KEY ‘#94: ,:LASTX! 

DEF KEY ‘f1:,'ASIN! 

DEF KEY ‘f2:,'ACOS! 

DEF KEY ‘f3!,'ATAN! 

DEF KEY ‘f-','LN: 

DEF KEY #99: ,'REAL MODE: 
DEF KEY 1#102:,'COMPLEX MODE DISP': 
DEF KEY ‘*#106!, 'RUP!: 

DEF KEY 1#1071,!RDN!: 

DEF KEY ‘f.',! VIEW! 


Quand vous vous serez bien amusé et quand vous 
aurez envie de voir autre chose que des 
complexes,  exécutez simplement La commande 


REAL_MODE. Au message Press [END] to resume!, 
appuyez sur [ENDLINE]. 


Alain Goubault de Brugière 


DECIMAL 
O0 WARN ! DEGREES 


COMPLEX 
." Complex vocabulary'" : 


: PAUSE 
2000 0 DO LOOP ; 


3.14159265359 FCONSTANT PI 
6.28318530718 FCONSTANT 2PI 


: COSH 

E°X FENTER 1/X F+ 2. F/ ; 
: SINH 

E"X FENTER 1/X F- 2. F/ ; 
: TANH 

FENTER SINH X<>Y COSH F/ ; 


NORM 
X°2 X<>Y X°2 F+ SORT ; 


X<0? 
Y 1- Na O= X=02? OR NOT :; 


Y=0? 

-1 Y 3 0 DO 

DUP à 0= ROT AND SWAP 16 + 
LOOP DROP : 


Y<0? 
Z 1- Na 0= Y=0? OR NOT ; 
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: CHS Y 
Z 1- 9 TOGGLE ; 


: EXCH 
DUP PAD 8 CMOVE. OVER SWAP 
8 CMOVE PAD SWAP 8 CMOVE : 
: ©L 
L' EXCH >; 
: CZ 
Z EXCH : 
s CT 
T EXCH ; 


: R-P 
FENTER Z RCL NORM T STO X=0? 
IF 
FENTER 
ELSE 
F/ ACOS X<>Y X<0? FDROP 
IF CHS THEN 
THEN X<>Y : 


SPR 
X<>Y COS X=0? 
IF 
FDROP 0. 
THEN 
LASTX SIN X=0? 
IF 
FDROP 0. 
THEN 
Z RCL F* X<>Y RUP F* : 


VOCABULARY COMPLEX WORDS 
COMPLEX WORDS DEFINITIONS 
VARIABLE STACK_ INPUT 

VARIABLE STACK POINTER 

CREATE COMPLEX STACK 80 NALLOT 
CREATE REAL_STACK 80 NALLOT 
VARIABLE COMPLEX_ STATUS 


: IMAG 
-1 COMPLEX STATUS ! ; 


: REAL 
O COMPLEX STATUS ! ; 


: STACK 
COMPLEX STATUS à 
IF COMPLEX STACK 
ELSE REAL_STACK 
THEN ; 





: STACK LEVEL 
DUP 5 /MOD DROP DUP 4 = 
1F 
SWAP DROP 
ELSE 
DROP STACK POINTER à + 4 /MOD DROP 
THEN 
16 * STACK + ; 


: REALQ 


REAL STACK LEVEL RCL ; 


: REALI 


REAL STACK LEVEL STO ; 


: IMAGQ 


IMAG STACK LEVEL RCL 


: IMAGI 


IMAG STACK_LEVEL STO ; 


: GETZ 


DUP IMAGQ REALA ; 


: PUTZ 


DUP REALI!I X<>Y IMAG! X<>Y ; 


: GET SAVE 
O0 GETZ 4 PUTZ ; 


: STACK_UP 
STACK POINTER à ?DUP 

IF 1- 

ELSE 3 

THEN 

STACK_ POINTER ! ; 

: STACK DOWN 

STACK POINTER à 1+ 4 /MOD DROP 
STACK POINTER ! ; 


: PUSHZ 


STACK_UP O PUTZ 
CLEAR_STACK 
REAL_STACK 80 O NFILL 
COMPLEX_STACK 80 O NFILL 
O0 STACK POINTER ! ; 
STACK_DUP 

O0 GETZ PUSHZ ; 

: STACK_DROP 

3 GETZ STACK DOWN 3 PUTZ ; 


-. 


D 


O0 IMAGQ 1 IMAGQ F+ O REALQ 1 REALQ F+ 


AE 


1 IMAGQ O0 IMAGQ F- 1 REALQ O REALQ F- 


e Z* 


O REALA 1 IMAGAQ F* 

1 REALA O IMAGQ F* F+ 
0 REALQ 1 REALQ F* 

O IMAGQ 1 IMAGQ F* F- ; 





. 





€ 
O0 REALQ 1 REALQ F* 
1 IMAGQ O0 IMAGQ F* F+ 
0 REALQ 1 IMAGQ F* 
1 REALQ O IMAGQ F* F- 
O0 GETZ NORM X”°2 F/ X<>Y LASTX F/ ; 


VARIABLE VIEW MODE 
VARIABLE VIEW FLAG 


: PROMPT 
GETZ CR VIEW MODE à 
IF 
R-P ." z=" Y=0? X=07? OR 
IF 
F. 
ELSE 


1. X=Y2 FDROP 
IF ELSE F. THEN 
XOY .M EME, .N 50 XCY 
THEN 
ELSE 
." Z=" X=07? DUP 
IF ELSE F. THEN 
X<>Y X=0? 
IF 
IF F. THEN 
ELSE 
-1. X=Y?2 CHS X=Y? OVER OR FDROP X<0? 
IF 
SWAP 
IF "em TUNER 
ELSE 
SWAP DROP OVER 
IF ELSE ." +" THEN 
THEN 
IF ELSE F. THEN 
DROP ." ji" 
THEN X<>Y 
THEN ; 


: DISP 
O PROMPT ; 
: VIEW RESULT 
VIEW FLAG à 
IF O PROMPT THEN ; 
: SET8VIEU 
O PUTZ VIEW RESULT ; 
: VIEW 
PROMPT PAUSE O0 PROMPT ; 


: POLAR 
-1 VIEW MODE ! 
VIEW RESULT ; 


: RECT 
O VIEW MODE ! 
VIEW RESULT ; 
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?QUERY 

DEPTH STACK_INPUT ! QUERY #TIB à 

IF 
INTERPRET DEPTH STACK_INPUT à - O> 
IF ELSE O THEN 

ELSE 0 

THEN ; 

QUERY_ DATA 

QUERY #TIB à 

IF 


INTERPRET DEPTH STACK INPUT Q - 0> 
1F 
ITOF 
THEN 
THEN ; 
: INPUT 
DEPTH STACK_INPUT ! VIEW MODE à 
1F 
." r=“ QUERY DATA X=0? 
1F 
0. 
ELSE 
.M @=1 QUERY DATA 
THEN 
X<>Y P-R 
ELSE 
." Re="" QUERY DATA 
." Im=" QUERY DATA X<>Y 
THEN 
PUSHZ VIEW RESULT ; 


Z TO N 
ITOF Y"X X<>Y LASTX F* X<>Y : 


VARTABLE ANGLE MODE 


: PI 

ANGLE MODE Q 

IF PI ELSE 180. THEN : 
2PI 

ANGLE MODE Q 

IF 2PI ELSE 360. THEN : 


: Z_ TO 1/N 
OVER /MOD DROP OVER ITOF 1/X Y”X X<>Y 
ITOF 2PI F* F+ ITOF F/ X<>Y : 


VARIABLE SAVE MODE 


: RAD MODE 
ANGLE MODE à SAVE MODE ! 
RADIANS -1 ANGLE MODE ! ; 


: RESET MODE 
SAVE MODE à DUP 
1F 
ELSE DEGREES 
THEN ANGLE MODE ! ; 
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LNZ 
RAD_MODE R-P LN RESET MODE : 


: EXP 


EX RAD MODE P-R 
O0 PUTZ RESET MODE ; 


SINZ 
RAD_MODE 

COS X<>Y SINH F* O GETZ 

SIN X<>Y COSH F* 

RESET MODE ; 

cosz 

RAD_ MODE 

SIN X<>Y SINH F* CHS O GETZ 
COS X<>Y COSH F* 

RESET MODE ; 


: TANZ 


RAD MODE 

2. F* O REAL! 

COS X<>Y 2. F* O IMAG! 
COSH F+ O GETZ SIN X<>Y 
SINH RUP F/ X<>Y RUP F/ 
RESET MODE ; 


: ALPHA 


1. F+ Z STO X<>Y T STO X<>Y NORM T STO RDN 
2. F- NORM F+ FENTER LASTX F- LASTX F- 
2. F/ XOY 2. F/ : 


ASINZ 

RAD_MODE 

ALPHA FENTER X°2 1. F- SORT F+ LN 
IF CHS 

THEN 

X<>Y ASIN 

RESET MODE ; 


: ACOSZ 


RAD_MODE 

ALPHA FENTER X*2 1. F- SORT F+ LN 
1F 

ELSE CHS 

THEN 

X<>Y ACOS 

RESET MODE ; 


ATANZ 

RAD MODE 

Z STO X<>Y 1. F+ T STO NORM X <>z 

2. F- NORM F/ LN 2. F/ 

O0 GETZ X<>Y 1. F+ FENTER X <>Z F/ ATAN 
X<>Y 2. F- O REALQ F/ ATAN F- 

PI X<>Y F- 2. F/ 

RESET MODE ; 


: 1/X 


GET_SAVE CHS_Y O GETZ NORM X”2 
F/ X<>Y LASTX F/ X<>Y 
SET&VIEW : 





: X°N 


GET_SAVE R-P Z TO N P-R 
SET&VIEN ; 

ROOT 

GET_SAVE CR ." Order? " ?QUERY 
R-P Z_TO 1/N P-R 

SET&VIENW : 


TE 


2 X°N : 

SQRT 

2 ROOT : 

Y°X 

GET SAVE 1 GETZ LNZ 1 PUTZ Z* EXP 
1 PUTZ 

STACK DROP 

VIEW RESULT ; 


2: Y"X-1 


GET_ SAVE 1 GETZ LNZ 1 PUTZ Z/ EXP 
1 PUTZ 

STACK_DROP 

VIEW RESULT ; 


A ds : 


GET_SAVE Z RCL FABS LN 
F* X<>Y LASTX F* X<>Y EXP 
SET&VIEW ; 

LN 

GET SAVE LNZ 

SET&VIEW : 

LOG 

O GETZ LNZ 

O0 PUTZ 

1 GETZ 

4 PUTZ 

LNZ 1 PUTZ 

Z/ 1 PUTZ 

STACK_DROP 

VIEW RESULT ; 


2 E°X 


GET_ SAVE EXP 
SET&VIEW ; 


: SIN 


GET SAVE SINZ 
SET&VIEN ; 


: COS 


GET_SAVE COSZ 
SET&VIEN ; 
TAN 

GET_SAVE TANZ 
SET&VIEM : 


ASIN 
GET_SAVE Y<0? ASINZ 
SET&VIEW : 

ACOS 

GET_SAVE Y<0? ACOSZ 
SET&VIEN : 


: ATAN 


GET_ SAVE ATANZ 
SET&VIEW : 

SINH 

GET SAVE X<>Y CHS O PUTZ 
SINZ CHS X<>Y 

SET&VIEM ; 


: COSH 


GET SAVE X<>Y CHS O PUTZ COSZ 
SET&VIEW ; 

TANH 

GET _ SAVE X<>Y CHS O PUTZ 

TANZ CHS X<>Y 

SET&VIEW ; 


: ASINH 


GET_SAVE X<>Y CHS O PUTZ Y<0? 
ASINZ CHS X<>Y 
SET&VIEM ; 


: ACOSH 


GET SAVE Y<0? 

ACOSZ X<>Y CHS 

SET&VIEN ; 

ATANH 

GET_ SAVE X<>Y CHS O PUTZ 
ATANZ CHS X<>Y 

SET&VIEU : 


: X<>Y 


1 GETZ O GETZ 1 PUTZ RDN RDN 
SET&VIEW ; 


BAR 
GET SAVE CHS_Y 
SET&VIEN ; 


: CHS 


O GETZ CHS Y CHS 
SET&VIEW : 


: RUP 


STACK_UP 
VIEW RESULT ; 


: RON 


STACK DOWN 
VIEW RESULT : 
LASTX 

4 GETZ PUSHZ 
VIEW RESULT ; 


« CLX 


0. 0. 
SET&VIEW : 


: CLST 





CLEAR_STACK 
VIEW RESULT ; 


FENTER 
STACK_DUP 
VIEW RESULT ; 


JPC 40 Page 29 


: FDROP 
STACK_DROP 
VIEW RESULT ; 


: RCL 
GETZ PUSHZ 
VIEW RESULT ; 
: 510 
O GETZ PUTZ 
VIEW RESULT 


-. 


: X O0 
T3 
“re 
T5: 
Les 


-. —. -.. 


+ 
GET_SAVE Z+ 1 PUTZ STACK DROP 
VIEW RESULT ; 
GET SAVE Z- 1 PUTZ STACK DROP 
VIEW RESULT ; 
. * 
GET_SAVE Z* 1 PUTZ STACK DROP 
VIEW RESULT 
+ 
GET SAVE Z/ 1 PUTZ STACK DROP 
VIEW RESULT ; 


: STD 

STD VIEW RESULT ; 
: FIX 

FIX VIEW RESULT ; 
: SCI 

SCI VIEW RESULT ; 
: ENG 

ENG VIEW RESULT ; 


: DEGREES 

DEGREES O0 ANGLE MODE ! 
VIEW RESULT ; 

RADIANS 

RADIANS -1 ANGLE MODE ! 
VIEW RESULT ; 


REAL_ MODE 

0 OKFLG ! O ONERR ! 

CR ." Press [END] to resume! ABORT : 
CLEAR_STACK REAL 


0 VIEW MODE ! 


Figure IV.7 - Types d'arguments et modes de passage : définition, 


O0 ANGLE MODE ! 


-1 VIEW FLAG ! 
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FORTH FORTH DEFINITIONS 


: ERROR 
." not recognized!!' QUIT : 


: COMPLEX MODE 


COMPLEX WORDS DEFINITIONS 
-1 OKFLG ! ['] ERROR ONERR ! 


| 





| 


possibilites et incompatibilités. 


. 
1 


PROGRAMME CALENDRIER, VERSION 2 


Ceci est une version remodelée du programme de 
Philippe Guez paru dans Le JPC No 30. 


L'idée de 
lors de la 


reprendre ce programme m'est venue 
parution de "DATELEXF' 
dernière mouture (celle de F. Le Grand du JPC No 


dans sa 


31-32-33). Les fonctions de ce LEX permettent, 
en effet, d'éviter Les bugs et autres 
désagréments liés à l'utilisation de M"“SETDATE"'! 
(avec paramètre numérique). 

Tant qu'à faire de retoucher ce programme, 


autant en profiter. Ce dernier a donc subi les 
modifications suivantes : 
MDATELEXF" et 


- Utilisation des fonctions de 


HPRINTLEX". 
- Impression de deux mois simultanément sur la 
même page (économie de papier). 


- Certaines fêtes ne sont prises en compte qu'à 
partir de dates prédéterminées (il était en effet 
gênant de célébrer le 8 Mai 1945 en 1914, etc...). 


- Le calage des fêtes mobiles dans le fichier 
Fêtes n'est plus fixe mais déterminé par une 
fonction utilisateur de recherche (lignes 850 à 
900). La solution précédente conduisait 
erreurs sur certaines années 


à des 
il arrive que 
l'Ascension se situe avant le 8 Mai, et de plus, 


la suppression éventuelle de certaines fêtes 
rendait inutilisable cette procédure. 
- Adjonction d'un  sous-programme permettant 


l'impression d'une page d'en-tête en caractères 
graphiques. 


Le mode d'emploi est très simple : 


Disposer d'un HP 71B, d'une Thinkjet, et d'un 
support de masse ; celui-ci devra contenir outre 
Le programme Basic, Les LEX MDATELEXF" (version 
F. Le Grand) et “PRINTLEX" ainsi que les dix 
fichiers DATA nommés respectivement (et 
impérativement) M"CHRO!, !CHR1M, ... , MCHR9M, et 
contenant Les matrices de codes graphiques. 
Lancer par un “RUN CALENDER:TAPE", puis à La 


question  : 11582<Année<2870:1 
l'année choisie au préalable que 
l'imprimante dispose d'au moins sept feuilles), 
répondre par O(oui) ou N(non) à la 
"En-tête ? (O/N):" (si 
oui, faire simplement "ENDLINE"}) et... 


répondre par 
(s'assurer 


enfin 
Le choix est 
ATTENDRE 1! 


question: 





- Environ 12 minutes sans en-tête, 
- Environ 27 minutes avec en-tête. 


Eh oui ! 15 minutes pour une page : Le graphisme 
sur imprimante sous Basic nécessite beaucoup de 


patience (peut être SIG pourrait-il y remédier 
par un Lex ?). 

Nota : 

- Disposant d'un MEV 4K à demeure sur mon 71, 


je n'ai pas eu l'occasion de véri i ce 


programme tournait sur une version se :; 
normalement ce devrait être possible : PRINTLEX 
= 566 octets, DATELEXF = 545 octets, CALENDER = 


6415 octets, La déclaration des #4 tableaux de 
matrices graphiques = 6640 octets: ce qui donne 
14166 octets, il devrait donc rester assez de 
place pour les autres variables utilisées dans 
ce programme. 


- L'édition de ce programme est prévue pour du 
papier 12" (environ A4). 


A. Bochet (PC 94) 


NDLR : Compte tenu de leur volume, ïl 
été possible d'inclure ici le 
fichiers vous pourrez vous les 
procurer auprès du Club. Ceci ne vous empêche 
cependant pas d'essayer ce programme : il suffit 
de répondre "Non! à La question “En-tête ? (O/N)". 


n'a pas 
listage des dix 
de données, 


UTILTAIRES 


Les deux programmes CCAT et LST nous ont été 
envoyés par G. Kossmann (PC244). 
permet de le catalogue du support de 
masse ou du HP71. Le second permet de lister le 
fichier courant. 


Le premier 
lister 
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Programme "CALENDER'" (Impression de calendrier, necessite PRINTLEX et DATELEX) 


10 IF FILESZR("PRINTLEX")=-57 THEN COPY PRINTLEX:TAPE 

20 IF FILESZR("DATELEX")=-57 THEN COPY DATELEX:TAPE 

30 DESTROY ALL @ TS=TIME @ FOR 1=1 TO 3 Q PUT '#481 9 NEXT I 

40 STD Q MDY @ INPUT '1582<Année<2870: !:A 

50 IF A<=1582 OR A>=2870 THEN ‘Année hors gamme! à BEEP 100,2 à GOTO 40 
60 RESTORE IO @ CONTROL ON @ PRINTER IS :#35 @ CLEAR 

70 INPUT ‘En-tête ? (O/N): F,VO':RS 


80 IF R$='0! THEN CALL ENTETE(A) ELSE IF R$#'N' THEN BEEP 100,2 à GOTO 70 


90 £ALL DFETES(A) 
[ GN #1 TO FETESI à ASSIGN #2 TO FETESP 
11 L LUNE(A) 


120 ASSIGN #3 TO LUNESI à ASSIGN #4 TO LUNESP 

130 DISP ‘Tracé du calendrier' à BEEP 

140 CLEAR Q PWIDTH 142 

150 FOR M=1 TO 12 STEP 2 

160 RESTORE 600 Q FOR 1=1 TO M à READ M$ à NEXT I à READ MO0$ 

1/0 RESTORE 610 àQ FOR 1=1 TO M Q READ N à NEXT I Q READ NO 

180 IF N#0O THEN 200 ELSE IF NOT MOD(A,4) THEN N=29 ELSE N=28 

190 IF NOT MOD(A,100) AND MOD(A,400) THEN N=28 

200 IF NO#O THEN 220 ELSE IF NOT MOD(A,4) THEN N0O=29 ELSE N0O=28 

210 IF NOT MOD(A,100) AND MOD(A,400) THEN NO=28 

220 MS=MS&' 1&STRS(A) à MOS=MOS&!  'RSTRS(A) 

230 PRINT ESC$&'&k1W! à PRINT ESC$&'&l8D' à PERF ON à PL 96 9 ENDLINE à MODE 3 
240 FOR I1=1 TO 10 à LF à NEXT I 

250 PRINT TAB((30-LEN(M$)) DIV 2):M$:; 

260 PRINT TAB(40+(30-LEN(MO$)) DIV 2);:M0$ 

270 PRINT USING :301=1,10X,30"=n1t à ENDLINE CHR$(13) 

280 MODE 2 

290 FOR 1=1 TO 31 

300 IF I>N THEN PRINT USING '#,80X' à GOTO 420 

310 J$=DOW$(M+1/100+A/1000000) 

320 ON ERROR GOTO 340 Q READ #1,0:F$ à IF VAL(F$11,4])#100*M+I THEN DESTROY F$ à@ GOTO 340 
330 READ #1,1;:F1$ à IF VAL(F$[1,4])=VAL(F1$11,4)) THEN FS$=F$&','&F1$(5] ELSE DESTROY F1$ 
340 ON ERROR GOTO 350 à READ #3,0:W$ à IF VAL(W$S(1,2]1)#I THEN DESTROY W$ 

350 OFF ERROR 

360 IF J$='Dimanche! THEN J$=UPRC$(J$) 9 BOLD ON ELSE BOLD OFF 

370 IF F$#'' THEN BOLD ON à J$=UPRC$(J$) 

380 PRINT USING "#,9A,20,' |",35A,12A,20X":J$,1,F$05]),W$[4] à BOLD OFF 

390 IF F$=!'! THEN 410 ELSE DESTROY F$ Q DELETE #1,0 

400 IF F1$='! THEN 410 ELSE DESTROY F1$ à DELETE #1,0 

410 IF W$=!'! THEN 420 ELSE DESTROY W$ àQ DELETE #3,0 

420 IF I>NO THEN ENDLINE CHR$(13)&CHR$(27)&'=! à PRINT USING ‘1X,/' à GOTO 550 
430 J$=DOWS(M+1+1/100+A/1000000) 

440 ON ERROR GOTO 460 à READ #2,0:F$ à IF VAL(F$[1,4])#100*(M+1)+1 THEN DESTROY F$ à GOTO 460 
450 READ #2,1:F1$ à IF VAL(F$(1,4])=VAL(F1$[1,4]) THEN F$=F$8!,'&F1$[5] ELSE DESTROY F1$ 
460 ON ERROR GOTO 470 Q READ #4,0;:W$ Q IF VAL(WS[1,2])#I1 THEN DESTROY W$ 

470 OFF ERROR 

480 IF J$='Dimanche! THEN J$=UPRC$(J$) à BOLD ON ELSE BOLD OFF 

490 IF F$#'' THEN BOLD ON @ J$=UPRC$(J$) 

500 ENDLINE CHR$(13)8CHR$(27)&'=1 

510 PRINT USING "9A,2D,' |',35A,12A,/";J$,1,F$[5],W$[4] à BOLD OFF 

520 IF F$='! THEN 540 ELSE DESTROY F$ à DELETE #2,0 

530 1F F1$='! THEN 540 ELSE DESTROY F1$ à DELETE #2,0 

540 IF W$='! THEN 550 ELSE DESTROY W$ à DELETE #4,0 

550 PRINT USING '60"-",20X,60"-" 71 





ER RER ep a es 


560 NEXT I @ ENDLINE à FF à NEXT M 

570 PURGE LUNESI @ PURGE LUNESP à PURGE FETESI à PURGE FETESP à TS=TIME-T5 
580 DISP ‘Temps écoulé: '&STR$(IP(T5/60))&'min.! 

590 PWIDTH 96 @Q PRINT ESC$&"E" à PAUSE à END ALL 


600 DATA Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Août, Septembre, Octobre, Novembre, Décembre 
610 DATA 31,0,31,30,31,30,31,31,30,31,30,31 


620 SUB DFETES(A) à BEEP à DISP ‘FETES! à CREATE TEXT FETES à ASSIGN #5 TO FETES à ENDLINE 
630 PRINT #5:"0101(Jour de l'an)" 

640 IF A>=1890 THEN PRINT #5:"0501(Fête du travail)" 

650 1F A>=1945 THEN PRINT #5:"0508(Armistice 1945)" 

660 IF A>=1789 THEN PRINT #5:"0714(Fête nationale)" 

670 PRINT #5;"0815(Assomption)" 

680 PRINT #5:"1101(Toussaint)" 

690 1F A>=1918 THEN PRINT #5:"1111(Armistice 1918)" 

700 PRINT #5;:"1225(Noël)" 

710 CALL PAQUES(A,N1,P1) 

720 PO=N1+P1/100+A/1000000 à INSERT #5,FNE(A,P0); 'O'&STR$(PO)[1,1]18&STR$(PO)[3,4]8&' (Pâques)! 
730 PI=DATE+(PO,1) à INSERT #5,FNECA,P1); 'O'&STR$(P1)[1,11&STR$(P1)[3,4]8&'(Férié)! 

740 G=DATE+(P0O,-47) @ P=DATE+(P0,49) à A1=DATE+(P,-10) 

750 INSERT #5,FNE(CA,G); 'O'&STRS(G)[1,1]8STR$(G)[3,4]&'(Mardi gras)" 

760 INSERT #5,FNE(A,A1);'O1&STR$S(A1)[1,11&STR$(A1)[3,4]&' (Ascension)! 

770 INSERT #5,FNE(A,P);'O'&STR$(P)[1,1]1&STR$S(P)[3,4]&' (Pentecôte)! 

780 P=DATE+(P,1) @ INSERT #5,FNE(A,P); 'O'&STR$S(P)[1,11&STRS(P)[3,41&'(Férié)! 

790 CREATE TEXT FETESI @ CREATE TEXT FETESP @ ASSIGN #1 TO FETESI @ ASSIGN #2 TO FETESP 
800 ON ERROR GOTO 840 

810 READ #5,0;:F0$ 

820 IF NOT RMD(VAL(FO$[1,21),2) THEN PRINT #2;F0$ ELSE PRINT #1:F0$ 

830 DELETE #5,0 à GOTO 810 

840 OFF ERROR Q ASSIGN #5 TO * à PURGE FETES 


850 DEF FNECA,D) 

860 E=0 à D0=1.01+A/1000000 à RESTORE #5 

870 ON ERROR GOTO 890 à READ #5:D$ @ OFF ERROR à D1=VAL(D$[1,4])/100+A/1000000 
880 IF DDAYS(DO,D)>DDAYS(DO,D1) THEN E=E+1 à GOTO 870 

890 FNE=E 

900 END DEF 


920 SUB LUNECA) à CREATE TEXT LUNES à ASSIGN #5 TO LUNES à ENDLINE 

930 FOR M=1 TO 12 à BEEP à DISP 'Lunes mois n'&STR$(M) à FOR J=3 TO 28 STEP 5 à CFLAG 5,7 
940 CALL LUNES(A,M,J,W$) @ IF W2$=W$ THEN 960 

950 PRINT #5:U$ à W2$5=W$ 

960 NEXT J à NEXT M 

970 CREATE TEXT LUNESI à CREATE TEXT LUNESP à ASSIGN #3 TO LUNESI à ASSIGN #4 TO LUNESP 
980 W2$='00! à C=3 à ON ERROR GOTO 1030 

990 READ #5,0:W$ 

1000 IF VAL(WS[1,2]1)>VAL(W2$[1,21) THEN GOTO 1020 

1010 IF C=3 THEN C=4 ELSE C=3 

1020 PRINT #C:W$ à DELETE #5,0 à W2$=W$ à GOTO 990 

1030 OFF ERROR à ASSIGN #5 TO * à PURGE LUNES à END SUB 
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SUB PAQUES(A,N1,P1) 

RI=RMD(A,19) à Q1=A DIV 100 à R2=RMD(A,100) à Q2=Q1 DIV 4 à R3=RMD(Q1,4) 
Q3=(Q1+8) DIV 25 à Q4=(Q1-03+1) DIV 3 à R4=RMD(19*R1+01-02-04+15,30) 
QS=R2 DIV 4 à RS=RMD(R2,4) à RO=RMD(32+2*R3+2*Q5-R4-R5,7) 
QÉ=(R1+11*R4+22*R6) DIV 451 

AI=RG+RE-7*06+114 à N1=A1 DIV 31 à PI=RMD(A1,31)+1 à END SUB 


SUB LUNES(A,M,J,W$) 

A2=A+DDAYS(1.01+A/1000000 ,M+J/100+A/1000000)/360 

T=A2/100-19 à K=FNR(1236.85*T,4) à DEGREES 

K2=4*FP(K) àQ IF K2=0 THEN SFLAG 7 Q GOTO 1170 

IF K2=1 THEN 1170 

IF K2=2 THEN SFLAG 5 @ GOTO 1170 

IF K2=3 THEN SFLAG 5,7 

J2=2415020.75933+29.53058868*K+.0001178*7"2-.000000155*T"3 
J2=J2+.00033*SIN(166.56+132.87*T-.009173*T"2) 
M1=RMD(359.2242+29.10535608*K-.0000333*T"2-.00000347*T7"3,360) 
M2=RMD(306.0253+385.81691806*K+.0107306*T"2+.00001236*T"3,360) 
F=RMD(21.2964+390.67050646*K-.0016528*T"2-.00000239*T"3,360) 

IF MOD(FLAG(5)+FLAG(7),2) THEN 1300 
C=(.1721-.0004*T)*SIN(M1)+.0021*SIN(2*M1)-.628*SIN(M2)+.0089*SIN(2*M2)-.0004*SIN(3*M2) 
C=C+.0079*SIN(2*F)-.0119*SIN(M1+M2)-.0047*SIN(M1-M2)+.0003*SINC(2*F+M1)-.0004*SIN(2*F-M1) 
C=C-.0006*SIN(2*F+M2)+.0021*SIN(2*F-M2)+.0003*SIN(M1+2*M2)+.0004*SIN(M1-2*M2) 
C=C-.0003*SIN(2*M1+M2) Q C1=.0028-.0004*C0S(M1)+.0003*COS(M2) 

IF FLAG(7) THEN 1290 

C=C+C1 à L$='PQ! à GOTO 1340 

C=C-C1 à L$='DQ' à GOTO 1340 

IF FLAG(5) THEN L$='PL!' ELSE L$='NL! 
C=(.1734-.000393*T)*SIN(M1)+.0021*SIN(2*M1)-.4068*SIN(M2)+.0161*SIN(2*M2)-.0004*SIN(3*M2) 
C=C+.0104*SIN(2*F)-.0051*SIN(M1+M2)-.0074*SIN(M1-M2)+.0004*SINC(2*F+M1)-.0004*SIN(2*F-M1) 
C=C-.0006*SIN(2*F+M2)+.001*SIN(2*F-M2)+.0005*SIN(M1+2*M2) 

J2=J2+C 

J2=J2+.5 Q Z=INT(J2) à F=FP(J2) 

IF Z>=2299161 THEN Y=(Z-1867216.25) DIV 36524.25 à Z=2+1+Y-Y DIV 4 

B=2+1524 Q C=(B-122.1) DIV 365.25 à D=INT(365.25*C) à E=(B-D) DIV 30.6001 
W=B-D-INT(30.6001*E)+F 

IF E>13.5 THEN E=E-13 ELSE E=E-1 

IF E>2.5 THEN C=C-4716 ELSE C=C-4715 

W1=24*FP(W) à W2=60*FP(W1) à W3=60*FP(W2) 

IF W<10 THEN W$='0! ELSE W$=!'! 

HS=WSESTRÉ(INT(W))&'/'ELSE&! à ! 

IF INT(W1)<10 THEN W$=UW$&! !&STRS(INT(W1))&'h! ELSE W$=W$&STRS(INT(W1))&'h! 

IF W2<10 THEN W$=W$&!'0! 

WS=USESTRECINT(W2))&'!mn'! 


1520 
1530 


JPC 


SUB ENTETE(A) à DISP ‘Chargement matrices! @ OPTION BASE 0 
INTEGER T1(4,109),1T2(4,109),173(4,109),14(4,109) 
F1$='CHR'ESTRS(A)[1,118&':TAPE! Q F2$='CHR'&STR$(A)[2,2]1&':TAPE! 
F3$=!CHR'&STR(A)[3,3]1&':TAPE! Q F4$='CHR'&STRS(A)[4,4]&':TAPE" 
ASSIGN #1 TO F1$ à RESTORE #1 à READ #1;:T1(,) @ ASSIGN #1 TO * 
ASSIGN #1 TO F2$ à RESTORE #1 @ READ #1:T2(,) @ ASSIGN #1 TO * 
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ASSIGN #1 TO F3$ @ RESTORE #1 Q READ #1;:T3(,) à ASSIGN #1 TO * 

ASSIGN #1 TO F4$ @ RESTORE #1 Q READ #1:T4(,) à@ ASSIGN #1 TO * 

CLEAR à PL à MODE 0 à DISP "Tracé de l'entête!" à FOR 1=1 TO 15 à LF à NEXT I 

PWIDTH INF @ PRINT ESC$S&'*r640S!; @ PRINT ESC$&'*rA!: 

FOR 1=1 TO 16 à PRINT ESC$&'*b58W!; Q FOR K=1 TO 20 Q PRINT CHR$(0): 

NEXT K @ FOR K=1 TO 38 à PRINT CHR$(255): @ NEXT K @ NEXT 1 

FOR 1=1 TO 32 Q PRINT ESC$&'*b58W!; à FOR K=1 TO 20 @ PRINT CHR$(0); @ NEXT K 

FOR K=1 TO 2 à PRINT CHR$(255):;: à NEXT K 

FOR K=1 TO 34 Q PRINT CHR$(0);: à NEXT K à@ FOR K=1 TO 2 @ PRINT CHR$(255);: à NEXT K 
NEXT I 

FOR L=0 TO 109 @ PRINT ESC$&'*b584!: 

FOR K=1 TO 20 @ PRINT CHR$(0);: @ NEXT K @ FOR K=1 TO 2 à PRINT CHR$(255);: à NEXT K 
FOR K=1 TO 4 à PRINT CHR$(0): à NEXT K 

FOR C=0 TO 4 à PRINT CHR$(TI(C,L)); à NEXT C Q FOR K=1 TO 2 Q PRINT CHR$(0): à NEXT K 
FOR C=0 TO 4 à PRINT CHR$(T2(C,L));: @ NEXT C à FOR K=1 TO 2 à PRINT CHR$(0);: à NEXT K 
FOR C=0 TO 4 @ PRINT CHRS(T3(C,L)): @ NEXT C à FOR K=1 TO 2 à PRINT CHR$(O): à NEXT K 
FOR C=0 TO 4 Q PRINT CHR$(T4(C,L)): @ NEXT C Q FOR K=1 TO 4 à PRINT CHR$(0): à NEXT K 
FOR K=1 TO 2 @ PRINT CHR$(255); Q NEXT K Q NEXT L 

FOR 1=1 TO 32 @ PRINT ESC$&'*b58W!': à FOR K=1 TO 20 @ PRINT CHR$(0); à NEXT K 

FOR K=1 TO 2 @ PRINT CHR$(255); @ NEXT K 

FOR K=1 TO 34 @ PRINT CHR$(0): @ NEXT K @ FOR K=1 TO 2 @ PRINT CHR$(255); à NEXT K 
NEXT I 

FOR 1=1 TO 16 Q PRINT ESC$&'*b58W!; Q FOR K=1 TO 20 Q PRINT CHR$(O); à NEXT K 

FOR K=1 TO 38 à PRINT CHR$(255);: à NEXT K à NEXT I 

PRINT ESC$&'*rB!'; @ ENDLINE 

FOR 1=1 TO 33 à LF @ NEXT I! à PWIDTH 142 Q MODE 2 

PRINT TAB(5):'( Programme M"CALENDER'": calculs et éditions de calendriers entre 1583 et : 
PRINT 2869 pour ordinateur HP-71B et imprimante THINKJET *1986* )! 

FF à DESTROY T1,T2,13,T4 à END SUB 
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Programme MCCAT'!' (lister le catalogue contenu dans Le HP-71 ou memoire de masse) 
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Utilitaire 

Compresse CAT de DISQ/K7 ou HP71 dans un fichier TEXT 
Utilise THINKJET ou PAC-SCREEN ou CLAVIER 

Lecteur DISQ 9114 


DEF KEY ‘x!,!'CALL CCAT!: 
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SUB CCAT 
DIM E$[11,K$[121,M$ 124] ,N$ [9] ,P$[31,S$[41 ,T$[80] 

INTEGER 1,J,K,N à E$=CHR$(27) à DISP E$&nE" 

TS=ESR MA NRCHREC2)ECHRB(2)8&'[ CAT= " Q DISP TSF 

DISP ESSNYNECHRS(2)ECHRS(3)& UM si CAT Masse! 

S$=KEYS à IF S$="" THEN GOTO 160 

IF S$="M" THEN N$="DISQ/K7 ]J" ELSE N$="HP - 71 ]" 
T$=TSENS Q DISP T$ à CALL DHCT$) 9 DISP T$ à GOSUB ‘VERF' 


"ECRT': T$=STRS(1+1)& Mo T$=T$(1,3] à T$="I NETHEN 1 
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210 FOR J=1 TO 4 Q I=1+1 

220 ON N GOSUB !TAPE!,'HP71! 

230 IF M$#"" THEN 250 

240 POP à T$=T$&"  -FIN CAT- “ @ GOSUB 'ENTR' à GOSUB 'FER' Q END 
250 K$=" MESTRS(VAL(MS [18,22] ))&" " à K$=K$[1,6] 

260 IF M$[12,12]#"B" THEN K$=M$[12,12]18K$ à GOTO 280 

270 IF M$[14,14]="S" THEN K$="B'&KS ELSE K$="b£êKs$ 

280 M$=M$ [1,10] &KS$&"1 1 

290 T$=T$S&M$ Q NEXT J @ GOSUB ‘ENTR' @ GOTO ‘ECRT' 


310 'LECTFCH': ON ERROR GOTO 350 à DISP " Chx= Clav Impr Video! à K$=1"" 
320 K$=KEY$ à 1F K$=""N THEN 320 ELSE IF K$="C" THEN 350 

330 IF K$="VN THEN PRINTER IS :DISPLAY ELSE PRINTER IS :PRINTER 

340 DISP ES$S&"E" Q PLIST N$ Q DISP E$&"T" Q END 
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350 'CLAVIER': OFF ERROR à GOSUB 'OUV' à T=FILESZR(N$) 

360 READ #N;T$ Q DISP T$ Q READ #N;T$ à DISP T$ 

370 FOR L=3 TO T Q READ #N;T$ Q T$=T$[2] à C=VAL(T$S) à T$=T$[7] 
380 FOR B=1 TO 4 à DISP STR$(C+B-1)8&" ="8&T$[1,17] à T$=T$[19] 
390 K$=KEY$ à IF K$=""" THEN 390 ELSE IF K$="." THEN BEEP @ END 
400 IF T$="N AND L=T THEN POP Q BEEP à END 

410 NEXT B 

420 NEXT L @ END 


9020 'VERF': ON ERROR GOTO 'FCHEXIST! 
9030 1F S$="MI THEN N$="FCHTAPEN Q N=1 ELSE N$="FCH71" @ N=2 
9040 CREATE TEXT N$ @ GOSUB 'OUV' à OFF ERROR @ RETURN 


9050 :FCHEXIST': OFF ERROR Q DISP " M:N$;l=existe UN AUTRE? O!" à K$="1 
9060 K$=KEY$ à IF K$="" THEN 9060 

9070 IF K$#!0! THEN M$=" -ANCIEN-" à GOTO 9100 ELSE M$=" -NOUVEAU-1 
9080 GOSUB 'CHX' à PURGE N$ à CREATE TEXT N$ @ GOSUB ‘'OUV! 

9090 T$=T$S[5] à T$="  METS à PRINT #N;T$ Q PRINT #N;'"!! @Q RETURN 

9100 GOSUB 'CHX' à GOTO 'LECTFCH' 


SESSSSSSSSSSSSESSESESSSEEESESEEEEESE=EEES===SESSS= === ==========- 


9110 'ENTR': PRINT #N;T$ @ DISP T$ @ RETURN 


9150 !'TAPE': ON ERROR GOTO 9170 


PO PRES ne à 0 eee D me ee ous 





9160 MS=CATS(I,":TAPE")[1,24] à MS=M$(1,9]8MS[12] à RETURN 
9170 OFF ERROR à DISP “ PAS DE DISQ/K7" à POP à END 
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9500 SUB DH(T$) 

9510 T$=T$S&'GK .. Le M&DATES[7,8]8&DATES[3,6]&DATES [1,2] 
9520 TS=T$S&" à MERTIMES(1,2)8&" h "&TIMES(4,5]8&" mn " 
9530 END SUB 
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Sous-Programme MLST"! (lister Le fichier courant, necessite PRINTLEX) 


- Utilitaire pour imprimer rapidement le fichier basic en cours 
Utilise PRINTLEX,PAC-SCREEN ou THINKJET 


DEF KEY ‘n','DIM N8$[8]aN8$=-CAT$(0)[1,8]QCALL LST(N8$)AQDESTROY N8$!: 


110 SUB LST(N8$) à INTEGER 1 @ DIM T$[90] 

120 1=1+1 à T$=CATS(1)[1,8] Q IF T$#N8$ THEN 120 

130 T$=1"" Q CALL DHCTS) 

140 T$=TS&M [MECATS(I)[1,2218&"] (MESTRE(I )&")" 

150 ON ERROR GOTO 170 à PRINTER IS :PRINTER @ WRAP ON 

160 T$=ESCH&"EKOSNMBESCHE MEL IL"ETE Q PRINT T$ Q PRINT @Q PLIST N8$ à END 
170 PRINTER IS :DISPLAY à DISP ESC$&'"E" Q DISP T$ Q DISP à PLIST N8$ 
180 DISP ESCS&!T" à END 
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LE COIN DES LHEX 
Comme de coutume, cette rubrique contient La Liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 
Rappelons ce qu'est un fichier Lex : c'est un programme pour Le HP71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des 


programmes Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n'avez pas besoin de programmer vous-même 
en assembleur, ni de posséder un module Forth/Assembleur. 


IL suffit de recopier Le petit programme basic "MAKELEX" ci-dessous, de Le lancer et de 
recopier Les codes du fichier Lex désiré. Quand vous avez fini, Les nouvelles fonctions sont 
accessibles, après avoir éteint et rallumé votre HP71. 

Si l'erreur "Erreur de somme! apparaît, vérifiez La ligne que vous avez introduite. 

Vous trouverez, outre les Lex de la rubrique "assembleur", Le Lex CHARLEX nécessaire à la 


rédaction de votre article. Voir l'article "Ah ! Vous écrivez I", 


P. David (PC37 S1G1 CHHU616) 


PRINTLEX BELL 225039 BOLD 225040 CR 225041 
ESC 225042 FF 225083 LF 225044 
MODE 255045 PERF 225046 PL 225047 
UNDERLINE 255048 WRAP 225049 

DATELEX  DATE+ 255051 DDAYS 225052 DMY 225053 
DOWS$ 255054 DOW 225055 MDY 225056 

CHARLEX 


10 CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH @ INPUT "Nb. d'octets: ":N à LC OFF 

20 CREATE DATA AH,1,N-4 à A=HTD(ADDRS("AH")) @ B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$:A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=AS&CS à A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CS[5*FLAG(5)+1] à POKE DTHS(A),C$ à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$CX)[31: à INPUT “: ",P$[1,MOD(N, 16)1;C$ @ GOSUB 90 

70 POKE DTH$(A),C$S à POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$S(X)[3]); à INPUT ": ",P$;C$ 

90 DISP DTH$CX)(31; à INPUT “ sm ","---n:D$ 
100 M=S à FOR Z=1 TO LENC(C$) à M=NUM(C$[Z])+M+1 @ NEXT Z 
110 IF D$=DTH$(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 
120 DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 PS=M------... " à RETURN 


JPC 40 Page 38 





000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
00B: 
@QC : 
000: 
Q0E : 
O0F : 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
010: 
QE: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
02C: 
02D: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034 
035: 


PRINTLEX. ID#E1 671 octets 1732F6D00101783E 
| ù 4 037: 1A0111CC50F68816 
0123456789ABCDEF :sm 038: A9O071EFFAEDFF776 
UDOTBASRTASESO 198 039: _OAF2A969765E0431 
052594E445045485 :378 03A: O3A6ABFE 1DEO8F 12 
‘802E003331611168 -6C8 038: DEO3A5B162860035 
245001E721300000 :A06 03C::A728FC289015CA13 
F170000000000000 :D34 030: :6066DCDCBDFFE4DF 
0F0200D80071200D : OAO 03E: F735ED031C4540E4 
61002200DD105420 :403 03F::7D206C3E048F871F 
0F82088200DF20BC :7AA 040: (OBF2EA21044FOAF2 
200063061300 140 :AFC 041: :329999F2008091FB 
16300DC4050400D3 E61 042: 50AE7D818178F2367 
5008400D6602A400 189 043: B162c615C6166815 
D72454C4C472724F 54D 044 : :815310322D4D 1A6A 
4C44482334259275 BB2 045: : 14816181 10D5DE20 
4353442A236464B2 C19 046: LAEB140161310114C 
3C464C2704F44454 FAC 047: :11361340618E 13606 
D2705542564E2305 317 048: : 672D61DFF4DCFF 14 
C4F2F55E4445425C 6BA 049: :A8E504505D1720DB 
494E403775251405 AB O4A: :B162C67323076363 
131FF038F88F3031 DB4 048:06613C47E3F10117F 
54966811718FA2C2 13A 04C:113318E95F2146859 
00E2EF1EDDFO08DB 50€ 04D: :88E618491318FDF8 
2E2080271308FE7A 8AB 04E :°E0781F1331333105. 
2041F78EF68108FE CSE O4F:°7D2F879001113164 
7A204FD7SDF8D6CA 036 050: 7D1F6C2D87CFFAOC 
208DE6A208D30350 389 051: FF722D4F0748C481 
3354021818FDFC20 741  +052:*624604777C4B1624 
14B8DCF250800745 AEO  #Ÿ 053: 64406CFF2EBFF77F 
0844660085420048 E2B 054: c411795C5B T62371 
F73321F0831D0310 198 055: 3347A4C5B1623703 
48D393901311C414 505 O5: 34F ,2 % 
705137C910807135 875, ii 2. 
E6D7700007053481 BFC" .ù DATELEX) ID#E1 545 octets 
000C906D60600158 E7A ÈS TO Es, 
001700007DA34c10 299 “af #2 0123456789ABÈDEF 
00C2061180613710 620, À 5: gt # 
8012086490118060 966% 5%, 000: 44144554C4548502 
18084A8014A310E9 CFO ti 001: 802É005331611168 
62000133FFFACEFF 0B6 à À 602: 744001E338300000 
7D4F170C3FFFECEF 4AE À à 003: F440028000000000 
F730F490753F1F07 858 |‘ 004: OFAOOOFDOOD4100F 
E2F1EO3OFFFA9EFF CéB 005: A105E300D3200310 
74OO6CAFIF659F2A FFA  * 006: OFE2037100F730CD 
E214D7F0F1D00140 387 , 007: 300D944144554B23 
194E821371091351 6E3 . 008: 3944441495354354 
c120318114D8F064 A61 ! 009: 4D49553744F47542 
A18408D781811360 DD8 :"00A: 63544F475735D444 
68F83D8013713413 154 = 008: 95831FF101001004 
51C110AC2081098F 4E9 * 00C: 4414455402CF110B 
2618111A1351C111 848 000: BF4574702F666022 
9134181318114C07 BA9 00E: 516E67656CFFB8822 
13457A36EFFAFDFF F8F 00F: 8FC1DB08F3228184 
746F797E1COGEEOB 348 010: 1401831606F92851 
GEFF71EFFI4A8F5O 721 011: F810017F7DD17FB1 
450D0570E45318F8 AA2 012: D9110861D08B6CDE 
71F08FBC6315FC10 E4C . 013: 26500C273C28F533 


036: 


1C2 
245 


-932 


CC3 
07c 
409 
7AF 
BB4 
F4F 
2F5 
695 
A34 
DD8 
156 
4D4 
847 
BCC 
F22 


2F8 
_68E 


9FA 


D86 


10€ 
&BC 
828 
BAS 
F8B 
330 
GAE 
A8B 
E07 
17D 
22D 


sm * 
13 


35E 
680 
9F6 


D2E 
OBE 


41A 


7A9° 


BOF 
E66 


‘1E3 


55€ 
8BB 
c29 
FAA 
34C 
6F8 
A55 
E02 
180 
5S2A 





‘022: 


014: 3186080DDDFDD840 
015: AFB2190450850812 
016::812A798F834B1A72 


‘077: :8FF24B187080872A 
018: 3E83668408718526 


019: B4088227E5117F10 
014::874511109F661B72 


_01B: :AFA8FB13B1BCC6DO 


01C: OB7A8FB13B1AF68D 


010: 832F08118427A11A: 


01E :  FACCD23078FE6CEQ 
01F::87221816AD2AA281 
020: ‘66CCF17F13310113 
021: 
0030540450960399 
646E657C42969803 
996462716D429677 
03F9646562736275 
6D42F68503996465 
756A4296D403F964 
6562746E656652F6 


023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
02C: 
02D: 
O2E : 
02F: 
030: 
031: 
032: 
033: 
034: 
0: 
036: 
037: 
038: 
039: 
03A: 
03B: 
03C: 
03D: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044 : 
045: 
046: 


52B1CB61203F5686 
36E616D696442F1C 
F66001C915518F06 
4A1840208D781812 
0315E048408FC463 
1550850018FC1DB0 
AF878DFAF990A508 
12812812AF721A92 
B73812812AF5A92B 
718F834B1AFA23A9 
2B/7A86080DDD FDDD 
22031219E1F43170 
9E1A130296123A0E 
0E05213036B10101 
301A8A0E0580E111 
213039E3115C5319 
29EBC05058D91FB0 
9E36FAE9109102D2 
304058FE6CE08ADA 
D11296C71320048F 
E6CEOB8A9606EBF11 
9AE51128F40331AF 
EAF22034532D89F2 
FOAF2CEAFE9FEO00 
733101E8DA939003 
00023000315E6310 
E100002000315E21 
8F3F5318D84A808D 
3035003 


CHARLEX  ID#E1 


0123456789ABCDEF 


000: 34841425C4548502 
001: 802E005331611168 


38F6242029021012: 


_E203B964656D6163 


8DA 
C5D 
2FE3 
383 
6F7 
A2 
DE4 
1C5 
:58F 
905 
CE3 
-06A 
3ED 
73D 
“A86 
-E09 
182 
EF 
872 
BFE 
111 
305 
68F 
A7 
DA6 
118 
497 
818 
BE7 
F5D 
2F9 
6A8 
A88 
DE7 
168 
4B6 
838 
B9E 
F4B 
2EA 
6A5 
AE 
DDE 
176 
514 
8FB 
C74 
FB1 
2FA 
6A7 
80C 


624 octets 


sm 


35E 
6B0 
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002: 
003: 
004 : 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00D: 
00E : 
O0F : 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 


5E4001E000000000 
FE0000000800001F 
F31BF961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
11014D1CB15D0000 
71450375FF864834 
5655581008355654 
5810002455565870 
0026555658700836 
5556581008364545 
&4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054cC714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
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9F4 
D4E 
0E1 
47B 
82E 
BB1 
F1C 
299 
5F0 
93D 
C8F 
FES 
338 
GA 
9FB 
D41 
090 
3F5 
720 
A30 
D40 
050 
360 
670 
980 
C90 
FAO 


01D: 
01E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
02C: 
02D: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 


0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1428080008080A2C 
180008040E 340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
4440007901112D70 
050D750509700000 
0070000000384540 
4020014E322E3140 
084E 794142400000 
00000000002€4559 


2B0 
5C0 
8D0 
BEO 
FOB 
275 
5BE 
8F8 
CO8 
F18 
228 
53E 
853 
B67 
E7B 
188 
407 
TEA 
AFA 
E1D 
158 
4BB 
805 
B48 
E9C 


038: 
039: 
03A: 
03B: 
05C: 
03D: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044 : 
045: 
046: 
047: 
048: 
049: 
04A: 
04B: 
04C: 
04D: 
O&E : 


064F : 
050: 





3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000€3159454E30 
0C7A0F7949400024 
5554587000084A71 
40000C523A262D 10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300C74 
5655545000054cC71 
40000 


83F 
B57 
EB6 
207 
548 
8A5 
BF4 
F49 
2A6 
5F5 
94B 
CAS 
FF3 
355 
6A6 
A06 
D7E 
ODA 
43B 
792 
AE2 
E26 
18E 
4ES 
5DE 


DUR ET MOU / GENERALITES 


| Mach. | Auteur | No | Pg | Titre | Type | Langage | 
ÉÉRR ÉRLPEREe prssafsssnpersnanseseneesnnsssmensenensse ee ee | 
| HPIL | L. ANCELET | 34 | 5 | Interface HPIL <-> Minitel | | | 
| HP71 | J.P. BONDU | 34 | 27 | Le VERS dans Les POLL | | Assembleur | 
| HP71 | S. BARIZIEN | 35 | 13 | Mettez un PC dans votre boucle | | | 
| HP71 |DAVID/TAILLANDIER| 35 | 16 | Assemblage d'enfer | | 
| HP71 | J.J. MOREAU | 35 | 37 | Assembleur récursif | | | 
| HP18 |DAVID/TAILLANDIER| 37 | 4 | La HP18 à l'essai | | 
| HP71 | BONDU/GUEZ | 39 | 5 | Le module TRANSLATOR PAC | | | 
| HP71 | PPC PARIS | 39 | 16 | Récapitulation des Tokens | | Assembleur | 
| HP71 | X. BILLE | 39 | 34 | Survol des fichiers de données | | | 
| | P. DAVID | 40 | 8 | Nouveaux produits | | | 
| HP41 | E. GENGOUX | 40 | 9 | Module "Extended IL Rom! | | | 
PROGRAMMES 

| Mach. | Auteur | No | Pg | Titre | Type | Langage | 
Lane cure PS rene impasse = 5 barres | 
| HP41 | S.VAUDENAY | 31 | 10 | Polynômes | math. | RPN | 
| HP71 | A. HERREMAN | 31 | 18 | Allez Les GOTO | divers | FORTH | 
| HP71 | J.J. MOREAU | 31 | 20 | Manipulation de complexe(DEMOCOMP)| math. | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 21 | Pour contraster (CONTRAST) | divers | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 22 | Cherchez Le type (SCANLEX) | divers | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 24 | Amnésique ? (CONFIGLX) | divers | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 25 | Trouvez vos chaînes... (FINDLEX) | divers | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 29 | L'exécution sommaire... (ENDUPLEX)| divers | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 31 | Safety first ! (SECURELX) | divers | Assembleur | 
| HP71 | F. LEGRAND | 31 | 35 | Prenez Date (DATELX) | astro. | Assembleur | 
| HP71 | J. TAILLANDIER | 31 | 38 | Programmation structurée (STRUC1) | divers | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 44 | Assemblez sans bruit (MASERLEX) | divers | Assembleur | 
| HP71 | J.J. MOREAU | 31 | 50 | More... (SWAPLEX) | divers | Assembleur | 
| HP71 | C. MARCOIN | 31 | 53 | Instructif (La pile d'instruction)| divers | Assembleur | 
| HP71 | J.P. BONDU | 31 | 54 | Edith et copy (v.o.) (EDIT) | divers | Assembleur | 
| HP71 | J.P. BONDU | 31 | 58 | La table d'équivalence | divers | ASS/BASIC | 
| HP71 | J.M. SIMON | 31 | 62 | Copie de disque | divers | BASIC | 
| HP71 | P. DAVASE | 31 | 62 | La troisième colonne (FORMLIST) | divers | BASIC | 
| HP71 | J.M. SIMON | 31 | 63 | :Port(folio) | jeux | BASIC | 
| HP71 | J. TAILLANDIER | 34 | 20 | Mole weight (MW) | chimie | Assembleur | 
| HP71 | J.P. BONDU | 34 | 30 | La clé des mots (SCANALEX) | divers | BASIC | 
| HP71 | T. GUILLOUX | 34 | 31 | Vecteurs sans modules (VECTO) | divers | BASIC | 
| HP71 | A. HERREMAN | 34 | 32 | La pensée du maître shadock | jeux | BASIC | 
| HP71 | A. HERREMAN | 34 | 32 | Ecirtam | math. | BASIC | 
| HP71 | J.M. KEFALOUCOS | 34 | 33 | Péri féerie | divers | BASIC | 
| HP71 | C. SIMON | 34 | 33 | Scrabble | jeux | BASIC | 
| HP71 | S. VAUDENAY | 34 | 33 | Le méchant PI | math. | BASIC | 
| HP71 | J.C. FOURES | 34 | 34 | À La conquête du graph | divers | BASIC | 
| HP71 | A. HERREMAN | 34 | 52 | Développement limité | math. | FORTH | 
| HP71 | A. HERREMAN | 34 | 57 | Parties de fractions | math. | FORTH | 
| HP71 | A. HERREMAN | 34 [57 | tri | math. | FORTH | 
| HP71 | J.J. MOREAU | 35 | 28 | Nouveau REPLACES$ (RPLCLEX) | divers | Assembleur | 
| HP71 | J.J. MOREAU | 35 | 35 | La chasse à l'octet (SHRINKLX) | divers | Assembleur | 
| HP71 | P. DAVID | 35 | 38 | Dessine-moi un mouton...(GRAPHLEX)| divers | ASS/BASIC | 
| HP71 | E. GENGOUX | 35 | 44 | Un conte à votre façon | jeux | BASIC | 
| HP41 | J.P. BONDU | 36 | 6 | Le pendu | jeux | RPN | 


he esesseeseveeeecpesssqssssseecoeuseuvranmecssscsesesesesceseseseseseseseoocecececscsececeseoece 
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PROGRAMMES (suite) 


| Mach. | Auteur | No | Pg | Titre | Type | Lengage | 
Je"... ces fesse p eee cesser | cusss..e | ssssss.sese | 
| HP41 | E. GENGOUX | 36 | 9 | Billet doux | trains | RP | 
| HP71 JDAVID/TAILLANDIER| 36 | 16 | Assembleur/Editeur de Liens | divers | Langage C | 
| HP71 | PICCARDI/TENDON | 36 | 19 | Compression de données (SPACKLEX) | divers | ASS/BASIC | 
| HP71 | J.P. BONDU | 36 | 26 j Errore humanum est (DOERRLEX) | divers | Assembleur | 
| HP71 | H. HELNAES | 36 | 27 | Une extension de l'assembleur | divers | FORTH | 
| HP71 | A. GILLET | 36 | 31 | Fichiers à accès direct |fichiers| BASIC | 
| HP41 | | 37 | 10 | Gestion de compte bancaire | divers | RPN | 
j HP41 | F. LEGRAND | 37 | 15 | Naviguer sur HP41 | astro. | RPN | 
| HP71 | MOREAU/FRIESSE | 37 | 17 | Calcul de PH automatique | chimie | RPN | 
| HP71 | DAVID/MARTINET | 37 | 22 | Un Lex déchainé (CLLEX) | divers | Assembleur | 
| HP71 | J.P. BONDU | 37 | 25 | La fonction POSI (POSILEX) | divers | Assembleur | 
| HP71 | M. MARTINET | 37 | 27 | Les messages de L'HPIL (ILMSGLEX) | divers | Assembleur | 
| HP71 | J.F. GARNIER | 37 | 33 | Nouveau Lex PPOLL (PPOLL) | divers | Assembleur | 
| HP41 | L. ANCELET | 38 | 8 | Programmes astronomiques | astro. | RPN | 
| HP71 | G. TOUBLANC | 38 | 18 | Le nouveau DIVILEX (DIVILEX) | math. | ASS/BASIC | 
| HP71 | J.P. BONDU | 38 | 24 | Un Lex pour vos Basics (BASICLEX) | divers | Assembleur | 
| HP71 | A. GOUBAULT | 38 | 34 | Forthement Complexe | math. | FORTH | 
| HP71 | C. GEGOUZO | 39 | 10 | Electronique de base | elect. | RPN | 
| HP71 | P. DAVID | 39 | 17 | Les débuts ‘LOWCS) | divers | Assembleur | 
| HP71 | J.J. DHENIN | 39 | 21 | Traitement de tableaux (VECTLEX) |fichiers| Assembleur | 
| HP71 | J.P. BONDU | 39 | 32 | Encore un SCAN... DALEI | divers | BASIC | 
| HP71 | G. TOUBLANC | 39 | 32 | intégrales et complexes | meth. | BASIC | 
| HP41 | F. GUY | 40 | 12 | Calculs de coniques | math. | RPN | 
| HP71 | A. GOUBAULT | 40 | 25 | A forthiori complexe | math. | FORTH | 
| HP71 | A. BOCHET | 40 | 31 | Le nouveau calendrier | divers | BASIC | 
| | 40 | 31 | Utilitaires | divers | BASIC | 


HP71 | G. KOSSMAN 
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PPC PARIS CHAPTER 
Decembre 1986 . 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


BULLETIN D’ADHESION 
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PROFESSION 
INTERETS 


MATERIEL HP EN VOTRE POSSESSION 


AUTRE MATERIEL MICRO- INFORMATIQUE 





COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 





QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 


A — 








Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le journal de Liaison, sans obligations 
ni responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La 
part des dirigeants du PPC PARIS CHAPTER. 


DATE |_{_[/[ 11/1911 
SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE |_|_|/]_|_[/19]_|_| A L'ORDRE DE PPC PARIS CHAPTER. 
PAR [ ] CHEQUE BANCAIRE N BANQUE 

{ ] CHEQUE POSTAL 3 VOLETS N 

[ ] MANDAT LETTRE 
EVENTUELLEMENT : JE M'ABONNE A COMPTER DU |_|_|/1_|_|/19]_|_| 
JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE À 
VOTRE ADRESSE. 





VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A : 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS 
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VOTRE MODULE JPC 


Chers amis, 


PPC-Paris est heureux de vous annoncer la naissance d’un grand projet : le 
module JPC. 


Notre Club a vu fleurir un grand nombre de programmes pour le HP-71, 
dont beaucoup de fichiers Lex, c’est à dire des programmes en assembleur 
apportant de nouvelles fonctionnalités au Basic. 


Depuis cet été, Pierre David et Janick Taïllandier ont réuni toutes ces 
fonctions en un seul fichier Lex. Ceci représente un travail très important, 
et une taille non moins importante ! 


Le fichier fait, à l'heure où j'écris ces lignes, plus ou moins 11 kilo-octets. 
Cette taille va, compte-tenu des ouvrages en préparation, augmenter 
substantiellement. On peut s'attendre à avoir bientôt un Lex de 16 kilo- 
octets. 


Nous sommes bien conscients que cette taille rend le fichier inutilisable par 
la plupart d'entre vous. 


Pourtant, un manuel a été préparé. et est très apprécié par ceux qui l'ont 
vu, même s’il reste à enrichir. Il est dommage que tout ce travail reste 
inutilisé, et ne profite pas aux membres du Club. 


Aussi, l’idée est venue d’en faire un module. Les nouveaux modules Eprom 
rendent ce projet accessible à un Club tel que le nôtre. 


La technique des Eproms permet d'étendre le projet initial : il est dommage 
de ne pas utiliser la totalité des 32 Ko ou 64 Ko offerts par les Eproms. 
Nous vous proposons donc de vous faire votre propre module en ajoutant à 
JPCLEX, si vous le souhaitez, vos programmes personnels. Avec ce projet, 
vous pourrez donc enficher dans l’un des 4 ports avant du HP-71 votre 
propre module. 


Ce module sera en tout point identique à un module HP. Il se branchera 
dans un port avant. et ne nécessite aucun accessoire particulier. 


Nous nous proposons donc de vous fournir : 
Le module Eprom (32 Ko ou 64 Ko) 
Le brûlage de l’Eprom (avec ou sans vos programmes personnels) 


Le manuel 


Ceci vous coûtera de 2000 à 3000 F, suivant les options choisies (voir le 
bon de commmande), 


Tout ceci va se dérouler de la manière suivante : 


1- Vous recevez cette lettre. Si le projet vous intéresse, vous nous envovez 
votre Chèque avant le 15 janvier 1987. Nous vous confirmerons votre 
participation par courrier. 


2- Ceux qui auront choisi d'ajouter leurs programmes personnels seront 
invités à nous les faire parvenir pour le ler mars, date limite. Il est bien 
clair que nous respecterons la confidentialité des programmes. Par ailleurs, 
notre intervention se bornera à bruler les programmes tels qu'ils nous seront 
fournis, sans vérification d'aucune sorte. 


3- Les modules et manuels (et les supports magnétiques en retour) vous 
seront adressés début avril. 


Pour ceux qui ne pourraient pas participer au projet dès maintenant, il sera 
possible de commander ultérieurement un module. Malheureusement, nous 
ne bénéficierons plus, alors, des réductions liées à la commande groupée 
que nous allons passer : le module sera donc plus cher. 


Tout ce travail est et sera, comme le reste de l’activité du Club, fourni par 
des membres bénévoles. Pour vous donner un ordre d'idées. Pierre et Janick 
ont déjà donné 250 heures de leur temps de loisirs pour ce projet. 


L'intégralité des bénéfices éventuels ira directement au Club. Aucune des 
personnes directement concernées (Pierre, Janick ou moi) n’en tirera le 
moindre profit. 


En attendant de vous consacrer nos week-ends... 


Philippe Guez 


JPCLEX : LISTE DES MOTS-CLEF 


Mot-clef Auteurs (JPC correspondant) Mot-clef Auteurs (JPC correspondant) 
ADBUFS Pierre David / Michel Martinet (22,27) LF Pierre David (26,40) 

ARR Laurent Istria (25) MARGIN Michel Martinet (26) 

ASC$ Pierre David / Michel Martinet (22,27) MAXD Michel Martinet (30) 

ATHF Pierre David / Michel Martinet (42,47) MAXM Michel Martinet (30) 

ATTN Pierre David / Michel Martinet (23) MDY Laurent Istria (28,31) 

BELL Pierre David (26,40) MENU Jean-Jacques Dhenin (26) 

BLIST Jéan-Pierre Bondu (38) MEMD Michel Martinet (30) 

BOLD Pierre David (26,40) MEMM Michel Martinet (30) 

CENTERS Pierre David / Michel Martinet (26) MERGE Pierre David / Michel Martinet (37) 
CESURE Pierre David / Michel Martinet (26) MODE Pierre David (26) 

COMB Laurent Istria (25) NLOOP Jean-Francois Garnier (30,37) 
CONTRAST Laurent Istria / Jean-Jacques Moreau (22,24) NPRM Guy Toublanc (35,38) 

CR Pierre David (26,40) PAINT Jean-Jacques Moreau (24) 

DATE+ Francois Legrand (31) PBLIST Jean-Pierre Bondu (38) 

DDAYS Laurent Istria (28,31) PERF Pierre David (26,40) 

DISABLE Michel Martinet (24) PL Pierre David (26,40) 

DMY Laurent Istria (28,31) PEEKS Pierre David / Michel Martinet (23) 
DOWS$ Laurent Istria (28,31) PGCD Guy Toublanc (35,38) 

DOW Laurent Istria (28,31) PHI Guy Toublanc (35,38) 

EDIT Jean-Pierre Bondu/Pierre David/Michel Martinet (31,37) POKE Pierre David / Michel Martinet (23) 
ENABLE Michel Martinet (24) POSI Jean-Pierre Bondu (37) 

ENDUPS Jean-Jacques Moreau (25,31) PPCM Guy Toublanc (35,38) 

ENDUP Jean-Jacques Moreau (25,31) PPOLL Jean-Francois Garnier (30,37) 

END WHILE Janick Taillandier (31) PRIM Guy Toublanc (35,37,38) 

ENTRY$ Jean-Jacques Moreau (31) REDS Pierre David / Michel Martinet (22,27) 
ESC Pierre David (26,40) REDUCES Pierre David / Michel Martinet (26) 
EXECUTE Jean-Jacques Moreau (31) RENUMREM Jean-Pierre Bondu (38) 

EXIT Janick Taillandier (30) REPEAT Janick Taillandier (31,34) 

FF Pierre David (26,40) REPLACES Michel Martinet (23) 

FILE? Stephane Barizien (23) RPLC$ Jean-Jacques Moreau (35) 

FIND Jean-Jacques Moreau (31) SHRINK Jean-Jacques Moreau (35) 

FORMAT$S Pierre David / Michel Martinet (26) SLEEP Jean-Francois Garnier (30,37) 

FPRM Guy Toublanc (35,38) SPACES Pierre David / Michel Martinet (26) 
GLINE Pierre David (35) SRQ Jean-Francois Garnier (30,37) 

GPSET Pierre David (35) STACK Michel Martinet (25) 

HMS+ Michel Martinet (25) STARTUPS Jean-Jacques Moreau (25,31) 

HMS - Michel Martinet (25) SWAP Jean-Jacques Moreau (31) 

HMS Michel Martinet (25) TOKEN Jean-Jacques Moreau (31) 

HR Michel Martinet (25) TYPE Jean-Jacques Moreau (31) 

HTAS Pierre David / Michel Martinet (22,27) UNDERLINE Pierre David (46,40) 

INV$ Jean-Jacques Moreau (24) UNTIL Janick Taïllandier (31,34) 

INVERSE Jean-Jacques Moreau (24) WHILE Janick Taïillandier (31,34) 

KSPEED Jean-Jacques Moreau (26) WRAP Pierre David (26,40) 


LEAVE Jdanick Taillandier (31,34) 


BON DE COMMANDE 


PEROU LAS OL QT RE RAR RS AR RL 


No PPC |_|_{_I 


Gpeseer LL ER ESC UE PRES RSR A Oh PE 


— Ms M Dom 


commande : 


Module 32 Ko Eprom 
JPCLEX + Manuel 


Module 32 Ko Eprom 
JPCLEX + Manuel 
Vos programmes 


Module 64 Ko Eprom 
JPCLEX + Manuel 


Module 64 Ko Eprom 
JPCLEX + Manuel 
Vos programmes 


Prix Quantité Prix 
Unitaire Total 
1900 F D. rl 
2100 F N. F 
2500 F Re. F 
200 F 4  : 
Ci-joint un chèque de : rte pile 


Je dégage La responsabilité du Club en cas d'erreurs dans Les 


programmes que je fournirai pour inclusion dans mon Eprom. 


Re ne © à 


Signature : 
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